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PRODUCT CODf : AC-7990D-HC 

PRODUCT NAIf : CEHJADO 11/70 HfW TST 

PRODUCT DAIf : 12-f£B-1979 

MAINTAINER. DIAGNOSTIC ENGINEERING 


THE INfORNATION IN THIS OOCUNENT IS SUBJECT TO CHANGE yITHOUT 
NOTICE AND SHOULD NOT BE CONSTRUED AS A COHNITNENT Bt DIGITAL 
EQUIPMENT CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES 
NO responsibility for any ERRORS THAT MAY APPEAR IN This 
DOCUMENT. 


NO responsibility is assumed for the use or reliability of 
SOFTUARE ON EQUIPMENT THAT IS NOT SUPPLIED By DIGITAL CR 
ITS AFFIlIAIED COMPANIES. 


COPYRIGHT (C) 1975, 1979 BY DIGITAL EQUIPMENT fORPORATION 


THE FOLLOWING ARE TRADEMARKS OF DIGITAL EQUIPMENT CORPORATION; 
OIGlTAl PDP UNIBUS MASSBUS 

DEC DECUS DECTAPE 
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1.0 


ABSTRACT 


PROGRAM CEMJA TESTS CONTIGUOUS MEMORY ADDRESS FROM 000000 TO 
17757776. IT VERIFIES THAT EACH ADDRESS IS UNIQUE (AN ADDRESS 
TEST) AND THAT EACH MEMORY LOCATION CAN BE READ/WRITTEN 
RELIABLY (WORST CASE NOISE TESTS). 

TM15 PROGRAM MAY BE USED TO ADJUST /MARGIN MEMORY. 


2.0 REQUIREMENTS 

2.1 EQUIPMENT 

PDP-11/70 FAMILY PROCESSOR WITH 52K MEMORY 


2.2 


STORAGE ^ , 

PROGRAM STORAGE - THE PROGRAM USES MEMORY 0-1 


7^77 


2.5 preliminary PROGRAMS 
DEKBA through DEKBF 


3.0 


loading and starting procedure 

load program into memory using A8S loader 

load address 200 

SET SW12 IN DESIRED POSITION (SEE SEC 4.0) 


PRESS START. 

ASTERISK WILL BE PRINTED AFTER EACH PASS. 
•’CEMJA DONE!" WILL BE PRINTED AFTER 6 PASSES. 

PASS COUNT MAY BE MONITORED IN THE DISPLAY 

NOTE: THIS PROGRAM SAVES THE LOADERS (BOOT 
RESTORE the LOADERS, RESTART AT 162. 


REGISTER. 
AND ABS), TO 


5.1 ACTII OPERATION 

IF THE PROGRAM IS RUN IN QUICK VERIFY MODE UNDER ACTII THE 
PROGRAM IS DONE AFTER THE FIRST PASS. 


4.0 


cwlTCH SETTINGS 


SW15 = 1 OR UP halt on error 

NOTE: IF SW15=1 WHEN AN ERROR OCCURS THE PROGRAM WILL 
halt, and the CORRECT DATA WILL NOT BE LOADED iNTO THE 
FAILING ADDRESS. IF SW15 IS RAISED AFTER THE ERROR 
typeout begins the program will halt when the TyPEOuT 
completes, and the correct data will be loaded into 
THE failing address. 


SWU - 1 OR UP LOOP SUBTEST 

SW13 = 1 OR UP inhibit ERROR TyPEOUT 


SW12 -* 1 OR UP. ...inhibit USE OF MEMORY MANAGEMENT 
NOTE: inhibiting THE USE OF MEMORY MANAGEMENI 


. AS 
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8E DONE ONLT WHEN THE PROGRAM IS STARTED. 

IT The use of memory management is lNHl8ITfD ThF lAST 
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160 

161 

162 

165 

16 A 

165 

166 

167 

168 

169 

170 

171 

172 
175 
17A 

175 

176 

177 

178 

179 

180 
181 
182 
185 
18 A 

185 

186 

187 

188 

189 

190 

191 

192 
195 
19A 
195 

iQt 

197 

198 

199 

200 
201 
202 
205 
204. 

205 

206 

207 

208 

209 

210 
211 
212 
215 
2U 
215 


ADDRESS AS TYPED BY THE PROGRAB WILL ONLY REFLECT THE 
AMOUNT OF MEMORY UP TO 28K (LAST ADDRESS = 160000). 

SW11 - 1 OR UP inhibit subtest iteration 

SUIO 1 OR UP RING BELL ON ERROR 

SW9 - 1 OR UP display error count in display 

REGISTER 

SU9 :: 0 OR DOWN... display PASS COUNT IN DISPLAY 
REGISTER 

SW8 - ' OR UP halt PROGRAM UNRElOCATED 8 RESTORE 

LOADERS. 

SW6 - 1 OR UP USE 18 BIT UNIBUS MAPPING ONLY 

(TEST ONLY FIRST 128k OF MEMORY) 


5.0 SUBROUTINE ABSTRACTS 

5.1 SCOPE 

the program STORES IN R1 THE PC OF THE LAST TEST SUCCESSFULLY 
EXECUTED AND MAY BE USED AS AN AID IN DEBUGGING IF THE PROGRAM 
•BOMBS' BECAUSE OF A HARDWARE FAILURE. 

6.0 ERRORS 

THESE TESTS PRINT OUT THE PC WHERE THE ERROR WAS DETECTED. THE 
FAILING ADDRESS, THE GOOD DATA. AND THE BAD DATA I.E. 

PC=XXXXXX ADDRESS AAAAAA GOOD DATa GGGGGG BAD DATA BBBBBB 

the ADDRESS OF THE FARING LOCATION IS THE true 22 BIT 
PHYSICAL ADDRESS. 

NOTE: WHEN TESTING MEMORY LOCATIONS 0-77776 ThE PC TYPED WILL 
BE A multiple OF 100000 GREATER THAN RElFECTED IN ThE PROGRAM 
LISTING 

THE ADDRESS OF THE BAD DATA IS IN (R2) -2 
the GOOD DATA IN RO 
THE BAD DATA IN R3 

THE ADDRESS OF GOOD DATA IS IN R4, (RANDOM DATA TEST ONLY) 

WHEN AN ERROR IS DETECTED WHEN EXERCISING THE MEMORY USING ThE 
WORST CASE NOISE PATTERNS. THE USER SHOULD RESTART TmE PROGRAM 
selecting program A2(SEE SEC 9.1 FOR DETAILS) SELECTING TmE 
APPROPRIATE PARAMETERS. THE USER LAN USE ThE PC AND ADDRESS 
OF THE failure to SELECT THE PROPER CORE BANX(S) AFFECTED AND 
ALSO The specific pattern. this allows maximum SCOPE 
CAPABILITIES. 

6.1 PARITY ERROR 
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SfO {X)Of 


216 

217 

218 
219 


If A PARITY ERROR IS DETECTED TmE PROGRAM wUi TyPE: 
PARITY error 

PC-PPPPPP MEMORY ADDRESS IS AAAAAAAA 
PARITY ERROR RE6-EEEEEE ?????????? MARGIN 
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220 

221 

222 

225 
2 ?<. 
2k^ 

226 

227 

228 
229 

250 

251 

252 
255 

254 

255 

256 

257 

258 

259 

240 

241 

242 
245 

244 

245 

246 

247 

248 

249 

250 

251 

252 
255 

254 

255 

256 

257 

258 

259 

260 
261 
262 
265 

264 

265 

266 

267 

268 

269 

270 

271 

272 
275 

274 

275 


where PPPPPP is the contents of IHE PC WHEN THE PARITY ERROR 
OCCURRED. AAAAAAAA IS ThE ADDRESS OF THE WORD. EEEEEE IS iME 
CONTENTS OF THE NENORY ERROR REGISTER. AND ???’?????? IS ImE 
MARGIN SETTING AT THE TIME OF THE PARITY ERROR. 

AFTER REPORTING THE PARITY ERROR THE PROGRAM Will START OVER. 

/.O RESTRICTIONS 

7.1 STARTING RESTRICTION 

PROGRAM MUST NOT BE RELOCATED WHEN RESTARTING 

7.2 OPERATIONAL RESTRICTION 

PROGRAM CHECKS CONTIGUOUS MEMORY IF A PARITY ERROR TRAP OCCURS 
WHEN THE PROGRAM IS RELOCATED PROGRAM ACTION IS UNDEFINED. IF 
PARITY MEMORY IS AVAILABLE OR SELECTED THE 5X0R9 TEST PATTERN 
IS FOR PARITY MEMORY ONLY. DO NOT POWER FAIL THE PROGRAM WHEN 
THE PROGRAM IS RUNNING RELOCATED. 


8.0 MISCELLANEOUS 

IF THE PROGRAM HALTS IN THE TRAP/INTERRUPT VECTOR AREA 
(0-1000). EXAMINE REGISTER 6 (THE STACK PTR). R6 CONTAINS ThE 
ADDRESS where THE PC OF THE INSTRUCTION THAT CAUSED THE TRAP 
ABORT IS STORED. SEE ALSO RT (R1 SPECIFIES THE LAST TEST 
COMPLETED). 

NOTE: THE PDP-T1/70 WILL DISPLAY THE TRAP VECTOR ADDRESSK IN 
THE ADDRESS LIGHTS. THUS A TRAP TO 4 (BUS ERROR) WILL DISPLAY 
TO IN the ADDRESS LIGHTS. 

8.1 STACK POINTER 

THE STACK POINTER IS INITIALLY SET TO 520 

AND IS RESET TO THIS VALUE AT TmE START OF EACH SUBTEST. 


8.2 


8.5 


8.4 


PASS COUNT 

SIX PASSES ARE REQUIRED FOR COMPLETION OF THIS PROGRAM; AT 
WHICH TIME AN ”••• WILL BE PRINTED. THE PASS COUNT MAY BE 
OBSERVED BY TURNING THE SWITCH TO THE DISPLAY POSITION. (TmE 
PASS COUNT IS ALSO STORED IN LOCATION 1000.) THE PASS COUNT 
SHOULD BE MONITORED IN THE EVENT THAT THE PROGRAM ENTERS AN 
UNDEFINED LOOP.. BLANK 1 
ERROR COUNT 

EACH TIME AN ERROR OCCURS. THE ERROR COUNT IS INCREMENTED. 
THE ERROR COUNT CAN BE OBSERVED BY TURNING THE SWITCH TO TmE 
DISPLAY POSITION AND SETTING SWITCH 9. (TmE ERROR COUNT ^ 
ALSO STORED IN LOCATION 1002.) THE PROGRAM WILL COUNT 17777(8) 
ERRORS; THE ERROR COUNT IS NOT INCREMENTED PAST THIS 
VALUE.. blank 1 

eitherNhe pass count or the error COUNT IS displayed in the 
display register, the count to be displayed is contpiuled b< 
The settting of switch 9. .Blank t 


27h 

8.5 POWER fAli 


SEO 0008 
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278 

279 

280 
281 
28? 
285 
28A 

285 

286 

287 

288 

289 

290 

291 

292 
295 
29U 

295 

296 

297 

298 

299 

500 

501 

502 
505 
50A 

505 

506 

507 

508 

509 

510 

511 

512 
515 


51 '. 

515 

516 

517 

518 

519 

520 

521 

522 
525 
52A 

525 

526 

527 

528 

529 

550 

551 

552 
555 


THE PROGRAM MAY BE POWER FAILED WHEN RUNNING. WHEN THE POWER 
RETURNS the PROGRAM WILL CONTINUE IN SEQUENCE .••CAuT ION«« DO 
NOT TURN POWER Off /ON UNTIL THE MESSAGE ’POwFR FAILED' HAS 
BEEN TYPED. THIS IS BECAUSE THE STACK MAY OVERFLOW. 

8.6 EXECUTION TIME 

EXECUTION TIME IS DEPENDENT ON THE AMOUNT OF MEMORY. 

9.0 PROGRAM DESCRIPTION 

THE PROGRAM VERIFIES EACH ADDRESS BY WRITING THE VALUE OF EACH 
ADDRESS INTO ITSELF STARTING AT LOCATION 20000 AND ENDING AT 
THE LAST LOCATION IN MEMORY. THE VALUE OF THE LAST LOCATION 
♦2 IS TYPED ON THE TTY. NEXT THE VALUES WRITTEN ARE VERIFIED. 
TO complete the address test THE COMPLEMENT VALUE OF EACH 
MEMORY ADDRESS IS WRITTEN STARTING AT THE LAST MEMORY ADDRESS 
AND ENDING AT ADDRESS 20000. THE WRITTEN COMPLEMENT VALUES 
ARE then verified. ThE NEXT PHASE OF TESTING INCLUDES 
READING. WRITING AND CHECKING MEMORY USING WORST CASE NOISE 
TEST PATTERN. A SUBTEST IS DEDICATED TO CHECKING THE PATTERN. 
THE TEST PROCEEDS BY EXERCISING EACH BANK OF MEMORY USING THE 
WORST CASE PATTERN. THE PROGRAM THEN CHECKS MEMORY USING 
RANDOM DATA (RANTST). THIS ROUTINE MOVES THE PROGRAM CODE 
throughout memory starting at location 20000. AND RELOCATES 
THE DATA BY A 52(10) WORD OFFSET ON EACH SUBSEQUENT 

RELOCATION. I.E.. FIRST RELOCATION IS TO 20000. NEXT IS tq 
20100. THEN 20200. ETC. AFTER RELOCATION THE CODE MOVED IS 
CHECKED AGAINST THE ORIGINAL CODE (0-17776). WHEN THE RANDOM 
DATA TEST IS COMPLETE THE PROGRAM THEN SUCCESSIVELY ROTATES A 
0 BIT (ROTO) AND A T BIT (R0T1) THROUGH ALL OF MEMORY. WHEN 
ALL TESTING IS COMPLETE THE PROGRAM INCREMENTS THE PASS COUNT 
(LOCAflON 1000) AND RESTARTS BEGINNING WITH THE WORST CASE 
NOISE TESTS. AN ASTERISK (*) WILL BE TYPED ON COMPLETION OF 
EACH PASS, AND WHEN 6 PASSES HAVE BEEN COMPLETED THE PROGRAM 
WILL type ’CEMJA DONE' AND RESTART THE PROGRAM BEGINNING WITH 
THE MEMORY ADDRESS TESTS. 


3 

.NLIST md.mc 
.list ME 
.ABS 

.title CEMJADO 11/70 MEM TST 
.SBTTl STARTING INST & DEFINITIONS 
;COPYRIGHT 1975.1979 DIGITAL EQUIPMENT CORP.. MAYNARD .MASS. 

.•THIS TEST CHECKS THAT ALL MEMORY ADDRESSES ARE UNIQUE USING ADDRESS TESTS 
;AND CHECKS DATA RELIABILITY Of MEMORY USING WORST CASE NOISE TEST PATTERNS 
;A RANDOM « PATTERN (PROGRAM CODE RELOCATED). A ROTATING 0 AND ROTATING 
;1 PATTERN. 

.•loading and staring INSTRUCTIONS 
.•load address 200 AND START 

;THIS PROGRAM ALSO RELOCATES THE ABS AND BOOT LOADERS TO AuOW TtS’lNG 
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SEO 0010 


K 1 


334 


55S 


336 


537 


338 


539 


34C 

OOOOCO 

341 

000001 

542 

000002 

345 

000003 

344 

000004 

34S 

000005 

346 

000006 

34 7 

000007 

548 

000000 

549 

000001 

350 

000002 

351 

000003 

552 

000004 

353 

000005 

354 


355 


556 

000001 

357 

000002 

558 

000004 

559 

000010 

560 

000020 

561 

000340 

562 

000200 

363 

000000 

364 

040000 

565 

140000 

56o 

000000 

567 

010000 

368 

050000 

369 

004000 

570 


371 


372 

000004 

573 

000010 

374 

000014 

375 

000014 

376 

000014 

577 

000020 

378 

000024 

379 

000030 

580 

000034 

381 

000060 

382 

000064 

583 

000240 

384 

000244 

585 

000250 

386 


387 


588 

177776 

389 

177774 


;OF NENORY. TO RESTORE THE LOADERS RESTART AT 162. 

STACK POINTER IS SET AT SOO 

; AN ASTERISK UlLI BE PRINTED ON COMPLETION OF EACH PASS. AND 

; THE PROGRAM NAME WILL BE PRINTED WHEN TEST IS COMPLETE. 

;GENERAL register ASSIGNMENTS 
RO=XO 
R1-X1 
R2--X2 
R5-X5 
RA-X4 
RS^XS 
SP:X6 
PC-X7 
R10=X0 
RlUXl 
R12=X2 
R15=X5 
RU-X4 
R1S=X5 


STATUS REGISTER (PSW) BIT ASSIGNMENTS 


C = 1 

C BIT 

V-2 

V BIT 

Z=4 

Z BIT 

N=10 

N BIT 
’T’ BIT 

T = 20 

PRTy7=340 

PRIORITY level 7 

PRTY4=200 

priority level 4 

KM=000000 

KERNEL MODE 

SM=040000 

supervisory mode 

UM= 140000 

USER MODE 

PKM=000000 

PREVIOUS KERNEL MODE 

PSM=0 10000 

PREVIOUS SUPERVISORY MODE 

PUM=030000 

PREVIOUS USER MODE 

REG=004000 

select R10-R15 


.VECTOR ADDRESSES 
ERRVEC=A 
RESVEC=10 
TBITVEC = U 
TRTVEC = U 
BPTVEC=14 

IOTVEC=20 

PFVEC=24 

EMTvEC-30 

TRAPVEC=34 

TKVEC=60 

TPVEC=64 

P1RVEC=240 

FPEVEC=244 

MMVEC=2S0 


;ADDRESS 


ADDRESS OF ERROR VECTOR 

ADDRESS OF RESERVED INST. TRAP VECTOR 

ADDRESS OF 'T* BIT TRAP VECTOR 

ADDRESS OF ’TRACE' TRAP VECTOR 

OF ’BREAKPOINT’ TRAP VECTOR 

ADDRESS OF lOT TRAP VECTOR 

ADDRESS OF POWER FAR TRAP VElTOR 

ADDRESS OF EHT VECTOR 

ADDRESS OF TRAP VECTOR 

ADDRESS OF TTY KEYBOARD INTERRUPT VECTOR 

ADDRESS OF TTY PRINTER INTERRUPT VECTOR 

ADDRESS OF PIRQ VECTOR 

ADDRESS OF FLOATING POINT INT. VECTOR 

ADDRESS OF MEM HGMT ERROR TRAP VECTOR 


.•REGISTER ADDRESSES 
PSW=177776 
SlR=177774 


;ADDRESS OF STATUS REGISTER 
;ADDRESS of stack LIMIT REGISTER 
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590 

177772 


P1RQ=177772 

ADDRESS OF PROGRAM INTERRUPT REQUEST 

591 

177770 


UBREAIC = 1 77770 

ADDRESS OF MICRO BREAK REGISTER 

592 

177746 


CNTRl=177746 

ADDRESS OF 11/70 MEMORY CONTROL REGISTE 

595 

177560 


TICS=177560 

ADDRESS OF KEYBOARD CSR 

594 

177562 


TKB=1 77562 

ADDRESS OF KEYBOARD BUFFER 

595 

177564 


TPS=1 77564 

ADDRESS OF TELEPRINTER CSR 

596 

177566 


TPB=1 77566 

ADDRESS OF TELEPRINTER BUFFER 

597 

177570 


SUR=1 77570 

ADDRESS OF CONSOL SWITCH REGISTER 

598 

5Q9 

177570 


DISPLAY=177570 

ADDRESS OF CONSOL DISPLAY REGISTER 

400 



initial STACK POINTER SETTING 


401 

000500 


STlCPTR=500 


402 





405 



.-NISCELIANEOUS BIT ASSIGNMENTS 


404 

000100 


BIT15= 100 


405 

040000 


BITUr 040000 


406 

020000 


BIT 15= 020000 


407 

010000 


BIT12= 010000 


408 

001000 


BIT9= 001000 


409 

000400 


BIT8= 000400 


410 

L 1 1 

000100 


BIT6= 000100 


H 1 1 

412 



:MEM0RY management REGISTER ADDRESS ASSIGNMENTS 

415 

177572 


SR0=177572 

:AODRESS OF MEM MGMT REGISTER SRO 

414 

177574 


SR1=177574 

.. jp, 

415 

177576 


SR2=177576 

SR2 

416 

Li 7 

172510 


SR3=172516 

■ADDRESS OF MEM MGMT REGISTER SR3 

418 

172500 


KIPDR0=1 72500 

: ADDRESS OF KERNEL M* PAGE 

419 

172302 


riP0R1=172502 

DESCRIPTOR REGISTERS 

420 

172504 


iciP0R2=1 72304 


421 

172306 


KIPDR3=1 72506 


422 

172510 


KIPDR4=172310 


425 

172312 


icIPDR5=1 72312 



1 72514 


KIPDR6=172314 


425 

172516 


ICIP0R7=172316 


426 





t.27 

172540 


KIPAR0=172340 

ADDRESSES OD KERNEL T SPACE 

426 

172342 


KIPAR1=172342 

PAGE ADRESS REGISTERS 

429 

172544 


KIPAR2=172344 


4 50 

1 72346 


KIPAR5=1 72546 


451 

172350 


KIPAR4=172550 


4 52 

172352 


KIPAR5=172552 


455 

172354 


KIPAR6=172354 


454 

172556 


KIPAR7-172356 


455 





456 





457 



;INSTRUCTION EQUATES 


4 58 

104400 


HLT=TRAP 


4 59 

104000 


SC0PE=EMT 

SCOPE IS AN EMT TRAP 

440 





441 



;MISC. EQUATES 


442 

000006 


RU=6 

R/U BIT IN PDR REGISTERS 

44 5 

000000 


UP=0 ;UP BIT IN POP REGISTERS 

444 





L45 






SEQ 0011 


SfO 0012 




<.S6 

US7 

458 

459 


460 


000000 



.--0 


461 

000000 

000000 



.WORD 

0 .'SPECIAL TRAP/INTERRUPT CATCHER If PRO- 

462 

000002 

000000 



.WORD 

0 ;GRAH HALTS AT 0 THEN ADDRESS WAS NOT 

465 






.'LOADED PROPERLY FROM VECTOR. 

464 

000004 

001126 



.WORD 

ERRTRP 

465 

000006 

000002 



.WORD 

RTl 

466 


000054 



.=TRAPVEC 

467 

000054 

001204 



.WORD 

ERROR 

468 

C00056 

000540 



.WORD 

PRTY7 

469 


000046 



.=46 


470 

000046 

004504 



tENDAD 


471 







472 


000052 



.=52 


475 

000052 

040000 



40000 


474 


000100 



. = 100 


475 

000100 

004567 

000664 

CRLf : 

JSR 

R5. SPRINT 

476 

000104 

000746 



ICRLE 


477 

000106 

000207 



RTS 

PC 

478 

000110 

000000 


RELFl: 

.WORD 

0 

479 

000112 

000000 


S4VPC2: 

.WORD 

0 

480 


000162 



. = 162 


481 

000162 

012706 

000500 

PONE: 

nov 

#500, SP .'STARTING ADDRESS TO RELOCATE LOADERS. 

482 

000166 

004767 

002016 


JSR 

pc.irldr 

485 

000172 

000000 



halt 


484 

000174 

000401 



BR 

PTWO 

485 


000200 



II 

o 

o 


486 

000200 

012706 

000500 

PTWO: 

nov 

#500, SP .'STARTING ADDRESS OF MEMORY TEST. 

487 

000204 

000157 

002576 


jnp 

a#START ;GO TO START OF TEST 

488 


000250 



.=250 


489 

000250 

000000 



.WORD 

0 ;HEHORY MANAGEMENT TRAP VECTOR. 

490 

000252 

000000 



.WORD 

0 

491 




; 



492 







495 




.'ROUTINE TO SAVE 

REGISTERS ON THE STACK 

494 




.'CALLED 

BV SAVE 

MACRO OR JSR PC.ISAVR 

495 

000254 

012667 

000016 

$SAVR: 

MOV 

(SP)t.ll ;SAVE RETURN PC 

496 

000260 

010546 



HOV 

R5.-(SP) 

497 

000262 

010446 



MOV 

R4,-(SP) 

498 

000264 

010546 



nov 

R5.-(SP) 

499 

000266 

010246 



HOV 

R2.-(SP) 

500 

000270 

010146 



MOV 

R1 ,-(SP) 

501 

000272 

010046 



HOV 

R0,-(SP) 


SEO 0015 
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502 

000274 

012707 



nov 

(PO^.PC 


* 

RETURN 

505 

504 

505 

000276 

000000 


IS: 

0 



1 

CONTAINS RETURN ADDRESS 




;R0UT1NE TO RESTORE REGISTERS 

SAVED ON THE STACK 

506 




;CAllED 

BY RESTORE MACRO OR JSR 


PC. SRESTR 

507 

000500 

012667 

000016 

SRESTR: 

MOV 

(SP)*,TS 


* 

SAVE RETURN PC 

508 

000504 

0126CO 



MOV 

(SP)^.RO 




509 

000506 

012601 



MOV 

(SP)*.R1 




510 

000510 

012602 



MOV 

(SP)*,R2 




511 

000512 

012603 



MOV 

(SP)*.R5 




512 

000514 

012604 



MOV 

(SP)*,R4 




515 

000516 

012605 



MOV 

(SP)*.R5 




514 

000520 

012707 



MOV 

(PC)*. PC 


■ 

RETURN 

515 

000522 

000000 


IS: 

0 



1 

CONTAINS RETURN ADDRESS 

516 










517 





.SBTTL 

POWER FAIL ROUTINE 

518 


000502 



. = 502 





519 




; POWER 

FAIL ROUTINE 




520 




.-THE POWER DOWN 

ROUTINE SAVES 

THE KEYBOARD STATUS. THE GENERAL REGISTERS 

521 




:(R0-R5).AND HEN NGNT REGISTERS 

( K I PORO-K I PDR 7 . K I PARO-K I PAR 7 . SR 3 . 5R2 . SRC 

522 




;0N THE 

STACK AND SAVES THE STACK POINTER IN PFSTK BELOW. 

525 

000502 

013746 

177560 

PDWN: 

MOV 

ai»TKS,-(SP) 



SAVE KEYBOARD STATUS 

524 

000506 

004767 

177542 


JSR 

PC.SSAVR 



GO SAVE REGISTERS ON THE STACK 

525 

000512 

005757 

000762 


TST 

aAMMAVA 



CHECK IF MEM MGMT IS AVAILABLE 

526 

000516 

001421 



BED 

5S 



BRANCH IF NOT AVAILABLE 

527 

000520 

015746 

177572 


MOV 

airsRO.-csP) 



SAVE SRO 

528 

000524 

015746 

177576 


MOV 

airsR2.-(SP) 



SAVE SR2 

529 

000530 

015746 

1 72516 


MOV 

ai»SR3,-(sp) 



SAVE SR3 

530 

000534 

012700 

172300 


MOV 

AKIPDRO.RO 



GET ADDRESS OF KIPDRO 

551 

000540 

012702 

000010 


MOV 

A8..R2 




532 

000544 

010203 



MOV 

R2.R3 




553 

000546 

012046 


IS: 

MOV 

(RO)*.-(SP) 


4 

SAVE KIPDR0-KIPDR7 

554 

000550 

077202 



SOB 

R2.1S 




555 

000552 

012700 

172540 


MOV 

VKIPARO.RO 



GET ADDRESS OF KIPARO 

556 

000556 

012046 


2S: 

MOV 

(RO)*.-(SP) 



SAVE KIPAR0-KIPAR7 

557 

000560 

077502 



SOB 

R3,2S 




558 

000562 

010627 


5S: 

MOV 

SP.(PC)* 



-SAVE STACK PTR IN FOLLOWING LOCATION 

539 

000564 

000000 


PFSTK: 

.WORD 

0 



;CONTAINS STACK PTR AFTER POWER FAIL 

540 

000566 

012737 

000576 000024 


MOV 

irpuP,ai»PF''EC 



:SET POWER FAIL VECTOR TO PUP ROUTINE 

541 

542 
545 

000574 

000000 



halt 








.•POWER 

UP ROUTINE. 




544 

000576 

000240 


PUP: 

MOP 





545 

000600 

013706 

000564 


MOV 

airpFSTK.sp 



iSET STACK PTR 

546 

000604 

005767 

000152 


TST 

MMAVA 


.•CHECK IF HEN MGHT IS AVAKABLt 

547 

000610 

001421 



BEO 

4S 



;GET ADDRESS OF KIPAR7*2 

548 

000612 

012700 

172560 


MOV 

I»KIPAR7*2.R0 



549 

000616 

012702 

000010 


MOV 

#8. ,R2 




550 

000622 

010203 



MOV 

R2,R5 



;RESTORE KIPAR7-KIPAR0 

551 

000624 

012640 


IS: 

MOV 

(SP)*,-(RO) 



552 

000626 

077302 



SOB 

R5.1S 



:GET ADDRESS OF KlPDR7*2 

555 

000650 

012700 

172520 


MOV 

irKlPDR7*2.RO 



554 

000654 

012640 


2S: 

MOV 

(SP)*,-(RO) 



;RESTORE K 1PDR7-K IPDRO 

555 

000656 

077202 



SOB 

R2.2S 



;RFSTORE SR3 

556 

000640 

012637 

172516 


MOV 

(SP)*,a#SR3 



557 

000644 

012657 

177576 


MOV 

(sp)*.a»sR2 


.•RESTORE SR2 


sfo oou 


IN. AG 

» 1 

O 

NEN TST 

MC V 1 1 

50A(1052) 

09- 

TEB-79 12 

B 2 

:56 PAGE 15 


1Nja;,.pti 09-FEB-79 

11:18 


POWER 

tail routine 


558 

000650 

012657 

17F572 



NOv 

'SP)».aiSRO 

; RE ST ORE SRO 

SSH 

000654 

005767 

004650 


41: 

TST 

PARAVA 

.CHECK IT parity registers ARE FNABiFB 

560 

000660 

001402 




BEQ 

5S 

;BRANCh it NOT 

56 T 

000662 

004767 

0045.^2 



jSR 

PC ..NANf 

;G0 ENABLE PARITY REGISTERS 

562 

000666 




5S: 




S6*, 

000666 

004767 

177406 



JSR 

PC.IRESTR 

:RESTORE REGISTERS TRON STACK 

56<. 

000672 

012637 

177560 



NOv 

(SP)* .aATKS 


565 

000676 

012757 

0U050? 

000024 


NOV 

fPDWN.RfPT VEC 

.SET POWER tail TRAP *0 PDWN ROUTINE 

566 

000704 

005027 




CLR 

(PC)* 


567 

000706 

000000 



101: 

.WORD 

0 

:DElAY WAITING TOR TTy NOTOR 

568 

0007TO 

005267 

177772 


TH: 

INC 

TOt 

569 

0007T4 

100575 




BPL 

111 


570 

000716 

004567 

000046 



JSR 

R5. SPRINT 

:G0 TO PRINT ROUTINE 

57T 

000722 

000750 




PWRT AIL 



572 

000724 

000240 



61: 

NOP 



575 

>7/. 

5 75 

000726 

000002 




RTl 


.-RETURN 

000750 

005015 

04752C 

042527 

PWRPAIL:.ASM1 

<15><12>'POWER 

TAIlED* 

576 

000756 

020122 

040506 

046111 





577 

000744 

042105 







578 

000746 

005015 

000 


SCRlF 

.ASCI/ 

<15><12> 



S79 

SflO 

S81 

S8^ 

585 0007S? 
S84 OOO^S<. 
^8S 000756 

586 000760 

587 00076? 

588 

589 

590 

591 00076*. 

592 000766 
595 

59/. 

595 

596 


000752 

000000 

000000 

000000 

000000 

000000 


000000 

000000 


.SBTTl TAOS t PRINT ROUTINE 
.EVEN 

KNT: .WORD 0 

1 COUNT: .WORD 0 

ERCNT: 0 
lDDISP: 0 

rWAvA; 0 


RELOCF: .WORD 0 
COUNT: .WORD 0 


; CONTAINS PASS COUNT 
CONTAINS ITERATION PATTERN 
CONTAINS ERROR COUNT 
CONTAINS display REGISTER INAGE 
NEN NCNT available INDICATOR 
0=N0T avail. -1=AVAIL(T8 BIT NODE) 
-2-AvAIl(22 BIT NODE) 


CONTAINS RELOCATION FACTOR 
TENPORARV WORKING LOACATION 


60/. 

605 

606 

607 

608 
609 
6T0 




.-call: 

JSR 

R5. SPRINT 



0 

NESSAGE ADDRESS 

000770 

000240 

SPRINT 

: NOP 


000772 

012567 

000016 

NOV 

(R5)*.1S 

000776 

066767 

177762 000010 

ADD 

RELOCF .IS 

001004 

015746 

177776 

NOV 

afPSW.-(SP) 

001010 

004 767 

000014 

JSR 

PC. .TYPE 

001014 

000000 

IS: 

.WORD 

0 

001016 

000205 


RTS 

R5 



.•ROUTINE TO TYPE ASCII NESS 



;ThE routine 

WILL INSERT A 



;CALL: 

TYPE 




• 


NESADR 



;TA&S 

USED BT 

The ttpe rout 

001020 

000 

SNULL: 

.BYTE 

0 

001021 

002 

Sf ill: 

.B'TE 

2 

001022 

000 

STPf LG 

: .BYTE 

0 


ROUTINE TO PASS NESSAGE ADDRESS TO TycE ROUTINE BELOW 


get NES.ACE ADDRESS 
ADD RELOCATION FACTOR 
PUSH PSW ON the stack 

call type routine 

CONTAINS NESSAGE ADDRESS 
RETURN 


.-HESADR IS FIRST ADDRESS OF ASCIZ STRING 


CONTAINS NULL CHARACTER 
CONTAINS • OF FIlLER CHARACTERS 
CONTAINS teleprinter AVAILABLE kAG 


i 




' 1’/7G 


MACt 1 1 

50Ai1052] 

09-11B-79 12 

C 
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m 09-«EB-79 

11:18 


MGS t 

PRINT ROUTINE 










;0/577 -- AVAIl/NOT AvAIl 

61S 

001025 

000 



STKf LG: 

.BYTE 

0 

;CONTAINS KEYBOARD AVAILABLE ElAO 

61^5 

0C1024 

177564 



»TPS: 

.WORD 

177564 

.-address Of TlEPRINTER STATUS REGISTER 

6W 

001026 

177566 



STPB: 

.WORD 

177566 

:address Of teleprinter data buffer 


001050 

010046 



.TYPE : 

HOV 

RO.-(SP) 

.-SAVE RO 

619 

00105^ 

017600 

000002 



MOV 

a2(SP).R0 

;6ET MESSAGE ADDRESS 

620 

001056 

062766 

000002 

000002 


ADD 

A2.2CSP) 

.-ADJUST RET',,iN pc 

621 









622 

001044 

112046 



IS: 

MOVB 

(RO)».-(SP) 

:PUSH CHARACTER TO BE MPED ONTO STACK 

625 

001046 

001005 




BNE 

2S 

.-BRANCH IF NOT THE TERMINATOR 

62A 

001050 

005726 




TST 

(SP)> 

:POP TERMINATOR CHAR OFF THE STACK 

62S 

001052 

012600 




MOV 

(SP)*.RO 

.-RESTORE RO 

626 

00 1054 

000002 




RTl 


.-RETURN TO CALLER 

627 









628 

001056 

004767 

000026 


2S: 

JSR 

PC. TYPIT 

;TYPE CHARACTER 

629 

001062 

122726 

000012 


5S: 

CMPB 

*12.(SP)> 

.-CHECK IF CHARACTER WAS A LINE FEED 

650 

001066 

001566 




BNE 

IS 

:BRANCH IF NOT LINE FEED 

651 

001070 

016746 

177724 



MOV 

SNULL,-(SP) 

:CET # OF fillers required AND FILLER 

652 








;CHARACTER. 

655 









654 

001074 

105566 

000001 


4S: 

OECB 

1 (SP) 

;DECREMENT FILLERS REQ. COUNT 

65S 

001100 

002770 




BLT 

5S 

:BRANCH IF NO MORE FILLERS ARE REQUIRED 

656 

001102 

004767 

000002 



JSR 

PC. TYPIT 

;TyPE filler character 

657 

001106 

000772 




BR 

4S 


658 









659 

001110 

105777 

177710 


TYPIT: 

TSTB 

as TPS 

;WAIT FOR OUTPUT DEVICE 

640 

001114 

100575 




BPl 

. ”4 


641 

001116 

116677 

000002 

177702 


HOVB 

2(SP).aSTPB 

;OUTPUT CHARACTER 

642 

00*. 124 

000207 




RTS 

PC 


j 

6A4 





MXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

645 





.-ERROR 

TRAP SERVICE ROUTINE 


640 

001126 

005757 

177570 


ERRTRP: 

TST 

a«suR 

; CHECK IF halt ON ERROR 

647 

001152 

100001 




BPL 

.♦4 

.-BRANCH IF NO HALT ON ERROR 

648 

001154 

000000 




halt 


;HALT 

649 

001156 

005727 




TST 

(PC)* 

;ChFCK IF PREV TRAP TO <. REPORTED 

650 

001140 

000000 



IS: 

.WORD 

0 

.-CONTAINS ERROR REPORTED FLAG 

651 

001142 

001015 




BNE 

2S 

:BRANCH if NOT REPORTED 

652 

001144 

010667 

177770 



MOV 

SP.1S 

.-SET 'NOT REPORTED* 

655 

001150 

011602 




MOV 

(SP).R2 

;GET PC OFF STALK 

654 

001152 

004767 

000576 



JSP 

PC.SFORMO 

;G0 TO FORMAT ROUTINE 

655 

001156 

004567 

177606 



JSR 

R5. SPRINT 

.-GO TO PRINT ROUTINE 

656 

001162 

001460 




TRAP4 



657 

001164 

004567 

’77600 



JSR 

R5. SPRINT 

.-GO TO PRINT ROUTINE 

658 

001170 

002551 




DIGITS 



659 

001172 

000000 



2f: 

halt 


.-ERROR! SECOND TRAP TO 4 ncCuRRET 

660 








.-BEFORE FIRST yAS PRINTED 

661 

001 17<. 

005067 

177740 



clR 

IS 


662 

001200 

000157 

000200 



JMP 

a«200 

.-RESTART AT 200 

665 









664 






.sbttl 

ERROR SERVICE 

ROUTINE 

665 





.-ERROR 

SERVICE 

called BY JSR 

PC ERROR INSTRUCTION 

666 





;0R HlT 

(A TRAP 

INST) 


667 

001204 

000240 



ERROR: 

NOP 



668 

001206 

022767 

017777 

177542 


CMP 

#17777. ERCNT 

.-CHECK FOR MAX ERROR CNT 

669 

001214 

001405 




BEO 

4S 



SfO 0016 


D 2 
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ERROR 

SERVICE ROUTINE 



670 

001216 

062767 

000001 

177532 


ADD 

«1 .ERCNT 

;lNCRCnENT ERROR COUNT 


671 

001224 

052757 

001000 

177570 

4$: 

BIT 

«BIT9.a«SUR 

;SUITCH 9 UP? 


672 

001252 

001411 




BEQ 

55 



675 

001254 

042767 

017777 

177516 


BIC 

#17777. lODISP 

;SAVE RELOCATION BITS 


67A 

001242 

056767 

177510 

177510 


BIS 

ERCNT, lDDISP 

:L0AD error COUNT 


67S 

001250 

016757 

177504 

177570 


nov 

LDDISP.a#DISPLAY 

;L0AD display register 

676 

001256 

005757 

177570 


5t: 

TST 

a#syR 

;HAlT ON ERROR 


677 

001262 

100002 




BPL 

. *6 



678 

001264 

000000 




halt 




679 

001266 

000470 




BR 

35 



680 

001270 

052757 

020000 

177570 


BI1 

#20000. aiSWR 

;PRINT OUT DESIRED? 


681 

001276 

001051 




BNE 

15 

;BRANCH IF NO PRINTOUT 


682 

001500 

004767 

176750 



JSR 

PC.5SAVR 

;G0 SAVE REGISTERS ON TmE STACK 

685 

001504 

016602 

000014 



MOV 

14CSP) .R2 

.GET PC OF ERROR CALL 


684 

001510 

004767 

000240 



JSR 

PC.5FORN0 

;G0 TO FORMAT ROUTINE 


685 

001514 

004567 

177450 



JSR 

R5.5PRINT 

;G0 TO PRINT ROUTINE 


686 

001520 

001475 




ERRPC 




687 

001522 

004567 

177442 



JSR 

R5.5PR1NT 

;G0 TO PRINT ROUTINE 


688 

001526 

002551 




DIGITS 




689 

001550 

016602 

000004 



nov 

4(SP) .R2 

:GET FAILING ADDRESS (IN 

R2) 

690 

001534 

004767 

000214 



JSR 

PC.5FORN0 

;G0 TO FORMAT ROUTINE 


691 

001540 

004567 

177424 



JSR 

R5.5PR1NT 

;G0 TO PRINT ROUTINE 


692 

001544 

002527 




ADRESS 




695 

001546 

105767 

005221 



tstb 

PENFLG 

;BRANCH if parity ERROR 

DETECTED 

694 

001552 

001017 




BNE 

115 

;BUT NOT FOUND 


695 

001554 

105767 

003212 



tstb 

peflg 

:BRANCH if parity ERROR 

DETECTED 

696 

001560 

001006 




BNE 

105 

;BUT FOUND 


697 

001562 

004567 

177402 



JSR 

R5,5PR1NT 

;G0 TO PRINT ROUTINE 


698 

001 566 

001501 




XNTDAT 




699 

001570 

010046 




WOV 

RO.-(SP) 

;PUSH value to TYPED ONTO STACK 

700 

001572 

004767 

000416 



JSR 

PC.02A 

;G0 PRINT VALUE 


701 

001576 




105: 





702 

001576 

004567 

177366 



JSR 

R5.5PR1NT 

;G0 TO PRINT ROUTINE 


705 

001402 

001514 




RECDAf 




704 

001404 

010546 




HOV 

R3.-(SP) 

.PUSH value to be typed 

ONTO STACK 

705 

001406 

004767 

000402 



JSR 

PC,02A 



706 

001412 

004767 

1 76462 


115: 

JSR 

PC.CRLF 



707 

001416 

or 4767 

176656 



JSR 

PC.5RESTR 

;REST0RE REGISTERS FROM 

STACK 

708 

001422 

05.757 

002000 

177570 

15: 

BIT 

#2000,a#SUR 

:RING bell on error 


709 

001450 

001405 




BEO 

25 



710 

001452 

004567 

177532 



JSR 

R5.5PR1NT 

;G0 TO PRINT ROUTINE 


711 

001456 

001527 




bell 




712 

001440 

005757 

177570 


25: 

TST 

a#SUR 

;halt after print out 


715 

001444 

100001 




BPL 

.♦4 



714 

001446 

000000 




halt 




715 

001450 

010042 



35; 

NOV 

R0.-(R2) 

;RESTORE CORRECT DATA TO ADDRESS 

716 

001452 

062702 

000002 



ADD 

#2,R2 



717 

001456 

000002 




RTI 




718 










719 

001460 

051124 

050101 

042520 

TRAP4: 

.ASCII 

MRAPPED TO 4 • 



720 

001466 

020104 

047524 

032040 






721 

001474 

040 








722 

001475 

120 

036503 

000 

ERRPC: 

.ASCIZ 

•PC-' 



725 

001501 

107 

047517 

020104 

XMTDAT 

: .ASCIZ 

•GOOD DATA-* 



724 

001506 

040504 

040524 

000075 






725 

001514 

041040 

042101 

042040 

RECOAT 

: .ASCIZ 

• BAD DATA ' 




SEO 001 7 


E 2 
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726 

001522 

052101 

036501 

000 






727 

001527 

007 

000 


bell: 

•ASCIZ 

<7> 



728 

001551 

120 

051101 

052111 

PARREG: 

•ASCIZ 

/PARITY ERROR 

REG=/ 

729 

001556 

020151 

051105 

047522 






750 

001544 

020122 

042522 

036507 






75^ 

001552 

000 








752 


001554 




.EVEN 




755 





;R0UT1NE 

TO PLACE ASCI! VALUE 

Of 

AN ADDRESS IN TO ADDRESS MESSAGE 

75A 

001554 

066767 

177204 

000014 

SrORNO: 

ADD 

RELOCf ,11$«2 



755 

001562 

066767 

177176 

000152 


ADD 

RELOCf .41$«2 



756 

001570 

004767 

1 76460 



JSR 

PC,$SAVR 


GO SAVE REGISTERS ON THE STACK 

757 

001574 

012704 

002351 


11$: 

MOV 

IDIGITS,R4 


ADDRESS WHERE ASCII VALUES ARE STORED 

758 

001600 

005005 




clr 

R5 


WORKING t INDEX REGISTER 

759 

001602 

162702 

000002 



SUB 

«2.R2 


ADJUST ADDRESS 

740 

001606 

010205 




MOV 

R2.R5 


SAVE 

741 

001610 

010501 




MOV 

R5,R1 



742 

001612 

005767 

177144 



TST 

MMAVA 


CHECK If MEM MGMT IS AVAILABLE 

745 

001616 

001426 




BEQ 

1$ 


BRANCH If NOT available 

744 

001620 

052757 

000001 

177572 


BIT 

«1 .a»SRO 


IS MEM MGMT ENABLED 

745 

001626 

001422 




BEQ 

1$ 


BR If NOT = ZERO 

746 

001650 

042701 

017777 



BIC 

#17777. R1 


SAVE PAR selector BITS 

747 

001654 

000501 




SUAB 

R1 


SWAP BYTES 

748 

C01656 

006001 




ROR 

R1 



749 

001640 

006001 




ROR 

R1 


fORM INDEX value 

750 

001642 

006001 




ROR 

R1 



751 

001644 

006001 




ROR 

R1 



752 

001646 

017102 

001774 



MOV 

aPARTABd 1 ,R2 


GET CONTENTS Of PAR 

755 

001652 

012700 

000006 



MOV 

#6.R0 


SHifT COUNT 

754 

001656 

006502 




ASL 

R2 


SHifT KlPARl 6 PLACES LEfT 

755 

001660 

006105 




ROl 

R5 


MSB’S GO INTO R5 

756 

001662 

077005 




SOB 

R0..-4 


BR IF NOT = ZERO 

757 

001664 

042705 

160000 



BIC 

#160000. R5 


Clear par selector bits 

758 

001670 

060502 




ADD 

R5.R2 


FORM 22 BIT ADDRESS 

759 

001672 

005505 




ADC 

R3 


IN R2 t R5 

760 

001674 

005001 



1$: 

CLR 

R1 



761 

001676 

012700 

000005 



MOV 

#5.R0 



762 

001702 

006005 



12$: 

ROR 

R3 



765 

001704 

006002 




ROR 

R2 



764 

001706 

006001 




ROR 

R1 



765 

001710 

005500 




DEC 

RO 



766 

001712 

001575 




BNE 

12$ 



767 

001714 

012700 

000010 



MOV 

#8. .RO 


;DIGIT COUNT 

768 

001720 

000405 




BR 

5$ 


;PRINT FIRST DIGIT 

769 

001722 

006501 



2$; 

ASL 

R1 



770 

001724 

006102 




ROL 

R2 



771 

001726 

006105 




ROL 

R3 



772 

001750 

005505 




DEC 

R5 



775 

001 ■’52 

001573 




BNE 

2$ 



774 

001754 

012705 

000005 


3$: 

MOV 

#5.R5 


DIGIT SHIFT COUNT 

775 

001740 

116524 

002512 


41$; 

MOVB 

DIGTAB(5).(4) 

4 

load digit into message 

776 

001744 

005005 




ClR 

R5 


Clear index 

777 

001746 

005500 

I 



DEC 

RO 


DEC digit count 

778 

001750 

001564 




BNE 

2$ 



779 

001752 

004767 

1 76522 



JSR 

PC.$RESTR 


.•RESTOPE REGISTERS FROM sTA(k 

780 

001756 

046767 

177002 

177612 


BIC 

RElOCT .11$*? 



781 

001764 

046767 

1 76774 

177750 


BIC 

RElOCf .4l$»2 




SfO OOlfi 


f 2 
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782 

001772 

000207 



RTS 

PC 

RE Turn 

785 








78A 

001774 

172540 


PARTAB: 

KlPARO 



78S 

001776 

172542 



KIPARI 



786 

002000 

172544 



K1PAR2 



787 

002002 

172546 



KIPAR5 



788 

002004 

172550 



K1PAR4 



789 

002006 

172552 



K1PAR5 



790 

002010 

172554 



K1PAR6 



791 

002012 

172556 



K1PAR7 



792 








795 




iROUTINE TO type OCTAL VALUE PUSHED ONTO STACK 

794 




.-CALL: 

NOV 

value, -(SP) 

PUSH value onto stack 

795 




• 

JSR 

PC,02A ;CAlL ROUTINE 

796 

002014 



02A: 




797 

002014 

004767 

1 76254 


JSR 

PC.SSAVR 

GO SAVE REGISTERS ON TmE STACK 

798 

002020 

016600 

000016 


NOV 

16(SP) .RO 

GET value 

799 

002024 

0V2705 

000006 


NOV 

i6.R5 

COUNTER 

800 

002050 

005002 



clr 

R2 

WORKING REGISTER 

801 

002052 

006100 



ROL 

RO 


802 

002054 

006102 



RCL 

R2 


805 

002056 

062702 

000260 

IS: 

ADD 

#260, R2 

TORN ASCII value 

804 

002042 

010267 

000040 


NOV 

R2.2S 

NOVE CHAR TO TYPE LOCATION 

805 

002046 

004567 

176716 


JSR 

R5, SPRINT 

GO TO PRINT ROUTINE 

806 

002052 

002106 



2S 



807 

002054 

005002 



CLP 

R2 


808 

002056 

006100 



ROL 

RO 


809 

002060 

006102 



ROL 

R2 


810 

002062 

006100 



ROL 

RO 


811 

002064 

006102 



ROL 

B2 


812 

002066 

006100 



ROL 

RO 


815 

002070 

006102 



ROL 

R2 


8K 

002072 

005505 



DEC 

R5 


815 

002074 

001560 



BNE 

IS 


816 

002076 

004767 

176176 ‘ 


JSR 

PC.SRESTR 

iRESTORE REGISTERS FRON STACK 

817 

002102 

012616 



NOV 

(SP)».(SP) 


818 

002104 

000207 



RTS 

PC 


819 

002106 

000000 


2S: 

.WORD 

0 

ICONTAINS CHARACTER TO BE TYPED 

820 








821 

002110 

000000 


LODfLO: 

.WORD 

0 


822 




.ROUTINE TO SAVE ABS LOADER 


825 

002112 

005767 

1 77772 

SlDR: 

TST 

lodelO 


824 

002116 

001401 



BEO 

5S 


825 

002120 

000207 



RTS 

PC 


826 

002122 

012700 

017776 

5S: 

NOV 

#17776. RO 


827 

002126 

012757 

002 140 000004 


NOV 

#2S,aiERRVEC 

:SET TINE OUT TRAP VECTOR 

828 

002154 

005720 



TST 

(RO)* 

• •• 

829 

002156 

000776 



BR 

.-2 


850 

002140 

022626 


2S: 

CNP 

(SP)*,(SP)* 


851 

002142 

022700 

020000 


CNP 

J20000,RO 

4K NACHINE? 

852 

002146 

001417 



BEO 

•4S 

YES— GET OUT 

855 

002150 

162700 

005672 


SUB 

#1500. ♦1*2. RO 

POINT RO back TO LOADER 

854 

002154 

010067 

000102 


NOV 

RO.SlDRI 

SAVE FOR RESTORE ROUTINE 

855 

002160 

012702 

002754 


NOV 

#1500. ,R2 

WORD COUNT 

856 

002164 

012705 

010256 


NOV 

#iODAR.R5 

WHERE loader is to BE STORED 

857 

002170 

012025 


IS: 

NOV 

(RO)*. (R5)« 

STORE loader 


SEQ 0019 


G 2 


■M.AO 

0 M/70 

MEM TS1 

MACYll 

50AM 052) 

09-fEB-79 12 

:56 PAGE 20 

<jAD. 

P11 09-fEB-79 

11:18 


ERROR 

icRvlCE ROUTINE 

858 

002172 

005502 




DEC 

R2 

859 

002174 

001575 




BNE 

IS 

840 

002176 

014567 

000042 



MOV 

-CR5). LSTLOC 

841 

002202 

005567 

177702 



DEC 

LODElO 

84? 

002206 

000207 



4i: 

RTS 

PC 

84 5 








844 





.-ROUTINE TO RESTORE LOADER 

84S 

002210 

005767 

177674 


SRlDR: 

TST 

LODfLO 

846 

002214 

001001 




BNE 

2S 

84 7 

002216 

000207 




RTS 

PC 

848 

002220 

016705 

000056 


2S: 

MOV 

SlDRI ,R5 

849 








8S0 

002224 

012704 

010256 



MOV 

fL0DAR.R4 

8S1 

002250 

012702 

002754 



MOV 

11500. .R2 

8S2 

002254 

012425 



IS: 

MOV 

(R4)*.CR5)* 

8S5 

002256 

005502 




DEC 

R2 

8S4 

002240 

001575 




BNE 

IS 

8SS 

002242 

012745 




MOV 

CPC)».-CR5) 

8S6 

002244 

000000 



lstloc 

: .WORD 

0 

8S7 

002246 

004567 

176516 



JSR 

R5. SPRINT 

858 

002252 

002264 




SLDRM 


859 

002254 

005067 

177650 



clr 

LODfLO 

860 

C02260 

000207 




RTS 

PC 

861 








862 

002262 

000000 



SlDRI : 

.WORD 

0 

865 








864 

002264 

047514 

042101 

051105 

SlORM: 

.ASCIZ 

•loader is re 

865 

002272 

044440 

020125 

042522 




866 

002500 

052125 

051117 

042105 




86 7 

002506 

005015 

000 





868 


002512 




.EVEN 


869 





.•DIGIT 

TABLE 


870 

002512 

030460 



DIGTAB 

: ’'Ol 


871 

0025K 

051462 




”25 


872 

002516 

052464 




"45 


875 

002520 

055466 




”67 



87 /. 

875 


.•S*VE LAST WORD OT LOADERS 
; RE TURN 


GET TIRST ADDRESS Of WHERE LOADER IS 
TO BE RESTORED 

ADDRESS WHERE LOADER IS STORED 

WORD COUNT 

RESTORE 


RESTORE LAST LOCATION (SAvED BT SAvE 
LOADERS ROUTINE ABOVE) 

GO TO PRINT routine 


;RETURN TO CALLER 

:fIRST address where LOADERS ARETO BE 
;RESTORED TO 
ST0RED’<1S><12> 


.MESSAGES 


876 

002522 

040514 

052125 

040 

LSI : 

.ASCII 

•last ' 

877 

002527 

115 

046505 

051117 

ADRESS; 

.ASCII 

•memory address is * 

878 

002554 

020151 

042101 

051104 




879 

002542 

051505 

020125 

051511 




880 

002550 

040 





• 00000000 • 

881 

002551 

060 

050060 

050060 

DIGITS: 

.ASCII 

882 

002556 

050060 

060 





885 

002561 

040 

000 


SPACEI : 

.ASCIZ 

9 • 

884 

002565 

120 

051501 

036525 

PASSMG: 

.ASCII 

•PASS • 

885 

002570 

020040 

000 


PASSNM: 

.ASCIZ 

f • 


886 

887 002574 

888 

889 

890 

891 

892 
89 ^ 


002574 

000000 


PLACE: 


.EVEN 
• WORD 
.SBTTl 


MEMORY ADDRESS TESTS 


THIS TEST ADDRESS MEMORY UP TO 128lC AND >^R0VES 'UNIONESS* Of ALL 
MEMORY address IN A lit SEGMENT. ThE TES’ WRITES INTO EACH MEMOR» 
ADDRESS the VAlUE Of THAT ADDRESS AND ’HEN CHECKS fOR ThE CORRECT 
DATA IN EACH ADDRESS. 


fWjAD.pn 


/^O «« TS1 HAC»11 

09-HB-79 n-.ig 


50A(10S2> 09-FfB-79 }2:‘>b PAGt 

BENOftV ADDRESS TESTS 


The twelve MOST Sl&NIf ICANT 
IS STORED IN R5. 

STARMNG INTRUCTIONS 


SEO 00^0 


BITS OF THE last AvAUABlE MEMORf ADDRESS 


8Q7 






LOAD 

ADDRESS 200 


89ft 






PRESS 

START 


899 

QAA 






STACK 

POINTER IS AT 500 


tUU 







*KtdlAKi AI \t>C lU r 

It ^ ' UKt L UADt K» •••*##•••••••###•• 

901 





; memory 

ADDRESS TEST 


902 

002576 

012757 

002440 

000212 

START : 

MOV 

iSTART 1 ,a#?12 

CHANGE START ADDRESS 

905 

002404 

012706 

000500 



MOV 

RSTKPTR.SP 

SET UP STACK PTR 

904 

002410 

004767 

177476 



JSR 

PC.SLDR 

GO SAVE MONITOR 1 LOADERS 

90S 

002414 

004567 

176550 



JSR 

R5. SPRINT 

GO TO PRINT routine 

906 

002420 

007564 




RESLDR 


907 

002422 

005057 

000756 



CLR 

8#ERCNT 

CLEAR ERROR COUNT 

908 

002426 

005057 

000760 



CLR 

a#LODISP 

CLEAR display register STORAGE lOCN 

909 

002452 

015757 

000760 

177S7C 


MOV 

8#LDDISP,8#D1SPLAY .'CLEAR DISPLAY REGISTER 

910 

002440 

012706 

000500 


START 1 : 

MOV 

fSTKPTR.SP 

SET STACK PTR 

911 

002444 

005037 

004572 



CLR 

a#PEFLG 

Clear parity error indicators 

912 

C024S0 

052757 

000014 

177746 


BIS 

#14,a#CNTRL 

disable cache 

915 

002456 

012727 

002440 



MOV 

#START1 ,(PC>« 

LOAD PARITY ERROR RESTART ADDRES3 

914 

002462 

000000 



PERSTRT 

:.UORD 

0 

CONTAINS RESTART ADDRESS AFTER PAR [RR 

91S 

002464 

005037 

000752 



ClR 

a#ICNT 

CLEAR PASS COUNT 

916 

002470 

005057 

000764 



clr 

a#RELOCF 

Clear reloacation factor 

917 

002474 

012757 

000502 

000024 


MOV 

#PDUN,a#PF VEC 

SET POWER fail TRAP VECTOR 

918 

919 

920 

002S02 

005057 

000026 



CLR 

a»PF VEC«2 






;CH£CX 

IF MEMORY MANAGEMENT IS AVAILABLE 

921 

002506 

005067 

176250 



CLR 

MMAVA 

CLEAR MEM MGMT AVAILABLE INDICATOR 

922 

002512 

052757 

010000 

1 77570 


BIT 

#BIT12.a«SWR 

CHECK IF TO RUN WITH MEM MGMT 

925 

002520 

001054 




BNE 

IS 

DO NOT USE MEM MGMT IF SW12 WAS SET 

924 

002522 

012757 

002612 

000004 


MOV 

#U.a#ERRvEC 

SET TIME OUT TRAP 

92 S 

002550 

005057 

177572 



clr 

a#SRO 

REFERENCE MEM MGMT 

926 

002534 

005167 

176222 



COM 

MMAVA 

SET INDICATOR TO -1 IF AVAILABLE 

927 

002540 

052757 

000100 

177570 


BIT 

#BIT6,a#SWR 

TEST MEM with 18 BIT MODE? 

928 

002546 

001410 




BEQ 

2S 

NO. USE 22 BIT MODE 

929 

002550 

012757 

000040 

1 72516 


MOV 

#40.8#SR5 

ENABLE UNIBUS MAP 

9X0 

002556 

022757 

C00040 

1 72516 


CMP 

#40,a#SR5 

DID IT SET? 

951 

002564 

001012 




BNE 

IS 

NO, branch 

952 

002566 

000415 




BR 

WRTUP 

NEXT TEST 

955 

002570 

012757 

000020 

1 72516 

2S: 

MOV 

#20,8#SR5 

SET 22 BIT MODE 

954 

002576 

022737 

000020 

172516 


CMP 

#20,a#SR5 

DID IT SET? 

95S 

002604 

001002 




BNE 

IS 

NO. BRANCH 

956 

"i'2606 

006367 

176150 



ASL 

MMAVA 

YES— SET INDICATOR TO -2 

957 

UU2612 

004767 

002572 


IS; 

JSR 

PC,.MAMF 

GO enable parity ACTION 


958 

959 
94,0 
9i,\ 

94,2 002616 

94.5 002624 
94A 002626 

945 002652 

946 0026A0 

947 002644 
94ft 002646 
949 0026S0 


012757 
010701 
004 767 
012757 
012702 
010205 
010522 
062705 


0C26S6 000004 URTUP 

002706 

00S662 0002S0 

020000 


000002 


.ROUTINE TO WRITE VALUE OF F^EMORV ADDRESS INTO MEMORY ADDRESi 
;fOR example ROUTINE WRITES 20000 INTO LOCATION 20000 
URTUP: MOV IDONEO .8# E RRvEC ;SET TIME OUT ^RAP VECTOR 

MOV PC.RI ;LOAD TRACE REGISTER 

JSR PC.LDMMO 

MOV *MMABT0.8fMMvEC ; SE T MEM MGMT ABORT vEfTOF< 

MOV #20000, R2 .FIRST ADDRESS 

MOV R2.R5 .-LOAD CONSTANT 

IS: MOV R5.CR2)‘ ;WR1TE vAluE 0^ 4:)i 4E 

ADD #2.R5 ;NExl vAi.,E 


SET MEM MGMT ABORT VE 
FIRST ADDRESS 
LOAD CONS’ANT 
WRITE value OT 
NEXT VAn,F 


vEf TOR 


AT I 


1 ^ 
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9SO 

0026S4 

000774 




BR 

15 

.-WRITE until done 

9ST 









9S2 

0026S6 

012706 

000500 


DONEO 

: MOV 

ISTXPTR.SP 

;SET STACK PTR 

9SS 

002662 

004 76 7 

1 76666 



JSR 

PC.5fORMO 

;G0 TO FORMAT ROUTINE 

9SA 

002666 

004567 

176076 



JSR 

R5,5PR1NT 

;G0 TO PRINT ROUTINE 

9SS 

002672 

002522 




LSI 



9S6 

002674 

004767 

175200 



JSR 

pc.crlf 


9S7 









9S8 





.-ROUTINE TO 

CHECK THAT VALUE 

OF MEMORY ADDRESS WAS WRITTEN CORRECTi T 

9S9 

002700 

010701 




MOV 

PC .R1 

.-LOAD TRACE REGISTER 

960 

002702 

012702 

020000 



MOV 

*20000. R2 

;SET R2 

961 

002706 

012757 

002762 

000004 


MOV 

*OONE1 .aiERRvEC ;SET MME OUT TRAP 

962 

002714 

010200 




MOV 

R2.R0 


965 

002716 

162700 

000002 



SUB 

I2.R0 

;SUBTRACT 2 

964 

002722 

004767 

002612 



JSR 

PC.LDMMO 


96S 

002726 

062700 

000002 


15: 

ADD 

I2.R0 


966 

002752 

012205 




MOV 

(R2)*.R5 

;GET WRITTEN VALUE 

967 

002754 

020005 




CMP 

R0.R5 

;CMECK 

968 

002756 

001402 




BEQ 

25 


969 

002740 

104400 




mlt 


:ERROR! TO DETERMINE WHICH ADDRESS WAS 

970 

002742 

000771 




BR 

15 


971 

002744 

005142 



25: 

COM 

-(R2) 


972 

002746 

005112 




COM 

(R2) 


975 

002750 

012205 




MOV 

(R2)* .R5 


974 

002752 

020005 




CMP 

R0.R5 


97S 

002754 

001764 




BEQ 

15 


976 

002756 

104400 




hlt 



977 





.-yRITTEN IMPROPERLY EXAMINE 

R2. NEXT EXAMINE MEM MGMT RFGISTER KIPARI 

978 





;CIF 

MEM MGMT IS AVAILABLE). 

ADD R2 AND KIPARI TOGETHER AS SHOWN BELOW 

979 









980 





# 

R2-2 


0 OCX KXX XXX XXX XXX 

981 





0 

ICIPAR1 (772542) Y YYY YYY YYY YYY YYY 

982 





« 

ADDRESS Z III III III III III III III 

985 









984 

002760 

000762 




BR 

15 


98S 

002762 

012706 

000500 


DONE1 

: MOV 

ISTXPTR.SP 

;SET STACK PTR 

986 

nA 7 

002766 

010701 




MOV 

PC.RI 

.-load TRACE REGISTER 

987 

988 





;ROUTINE TO 

uRiTE rs COMPLE 

MENT value of ADDRESS INTO ADDRESS 

989 





;E0R 

example 

routine writes 

157777 INTO ADDRESS 20000 

990 

991 

002770 

005767 

175766 



TST 

MMAVA 

.-memory magnagement available? 

992 

002774 

001420 




BEQ 

55 

.-BRANCH IF NOT USED 

995 

002776 

015705 

172542 



MOV 

a*KlPAR1.R5 

;FIND last ADDRESS IF MEM MANAGE USED 

994 

005002 

006505 




ASL 

R5 


99S 

005004 

006505 




ASL 

R5 


996 

005006 

006505 




ASL 

R5 


997 

005010 

006505 




ASL 

R5 


998 

005012 

006505 




ASL 

R5 


999 

005014 

006505 




ASL 

R5 


1000 

005016 

010246 




MOV 

R2.-(SP) 

;Oevelop complement of last address 

1001 

005020 

042716 

020000 



BK 

*20000. (SP) 

;SAVE BITS IF MEMORY IS NOT A MULTIPLE 

1002 

005024 

062605 




ADD 

(SP)*,R5 


1005 

005026 

012757 

005714 

000250 


MOV 

*MMABT’ .a*MMvEC ;SET ABORT VECTOR 

1004 

005054 

000405 




BR 

25 


lOOS 

005056 

162702 

000002 


55: 

SUB 

*2.R2 

.-R2--LAST ADDRESS 



J 2 


ftNjAOO 11/70 

1S1 

MACTlI 

50A11052) 

09-fEB-79 

12:56 PAfjE 25 


(tnjAO. 

P11 09-»EB-79 

11:18 


ME NOR T 

ADDRESS TESTS 


1006 

005042 

010205 




MOV 

R2.R5 


1007 

005044 

005103 



21: 

COM 

R5 

; complement VAlUE IN R3 

1008 

005046 

062705 

000002 


1i: 

ADD 

A2.R5 


1009 

005052 

010542 




MOV 

R5.-(R2) 

;WR1TE compliment VALUE INTO ADDRESS 

1010 

005054 

102403 




BVS 

DONE 5 


1011 

005056 

020227 

017776 



CMP 

R2 . *1 7776 


1012 

005062 

001371 




BNE 

It 


1013 









10U 





;SET UP 

TO CHECK complement DATA 

WRITTEN DOWN 

101S 

005064 

000240 



DOME 5 : 

NOP 



1016 

005066 

010701 




MOV 

PC.R1 

;L0AD trace register 

1017 

005070 

005767 

1 75666 



TST 

MMAVA 

.-CHECK IF MM IS avail 

1018 

003074 

001406 




BEQ 

It 


1019 

005076 

012757 

000200 

172342 


MOV 

*200,a*KlPAR1 

:INIT KIPAR1 

1020 

003104 

012737 

005662 

000250 


MOV 

*MMABTO,a*MMvEC 

;SET ABORT VECTOR 

1021 

003112 

012757 

003152 

000004 

It; 

MOV 

*D0NE4.a*ERRVEC 


1022 

003120 

012702 

020000 



MOV 

*20000. R2 

:fIRST ADDRESS 

1023 

003124 

010200 




MOV 

R2,R0 


102<. 

003126 

005100 




COM 

RO 

:fIRST DATA (COM OF ADDRESS) 

1025 

003130 

062700 

000002 



ADD 

*2.R0 


1026 

005134 

162700 

000002 


2t; 

SUB 

*2.R0 


1027 

005140 

012205 




MOV 

(R2)*,R5 

;GET value 

1028 

005142 

020005 




CMP 

R0.R5 

.-CHECK 

1029 

003144 

001775 




BEQ 

2t 


1050 

005146 

104400 




hlt 



1051 

005150 

000771 




BR 

2t 


1052 

005152 

000240 



DONE 4: 

NOP 



1055 









105<. 





;R0U11NE 10 

WRITE BANK * INTO ALL ADDRESSES IN A 4K BANK 

1055 

003154 

012757 

003222 

00C004 


MOV 

*D0NE4A.a*ERRvEC 

.-SET TIME OUT TRAP VECTOR 

1056 

005162 

010701 




MOV 

PC.R1 


1057 

005164 

004767 

002350 



JSR 

PC.LDMMO 


1058 

005170 

012757 

005662 

000250 


MOV 

*MMABTO.a*MMvEC 


1059 

005176 

012702 

02000C 



MOV 

f 20000. R2 


lOAO 

005202 

005000 




CLR 

RO 


10A1 

005204 

005200 



It: 

INC 

RO 

:R0 WILL BE DATA WRITTEN 

1042 

005206 

012704 

010000 



MOV 

*4096.. R4 

.-SET 4K COUNTER 

10A5 

003212 

010022 



2t: 

MOV 

R0.1R2)» 

.'WRITE BANK i INTO ALL ADDRESSES 

10AA 

005214 

005504 




DEC 

R4 


10<.5 

005216 

001575 




BNE 

2t 


1046 

1 A/ 7 

005220 

000771 




BR 

It 


I OA ( 

1048 

003222 

022626 



D0NE4A: 

CMP 

(SP)*.(SP)* 

.-ADJUST STACK PTR 

1049 

’050 





;ChECK 

THAT 

DATA WRITTEN ABOVE CAN BE READ 

1051 

005224 

012757 

0C5272 

000004 


MOV 

*D0NE4B.a*ERRvEC 

1052 

005252 

010701 




MOV 

PC.R1 


1055 

003254 

004767 

002300 



JSR 

PC.LDMMO 


1054 

005240 

012702 

020000 



MOV 

*20000. R2 


1055 

005244 

005000 




CLR 

RO 


1056 

005246 

005200 



It: 

INC 

RO 


1057 

005250 

012704 

010000 



MOV 

*4096.. R4 


1058 

003254 

012205 



2t: 

MOV 

(R2)* .R5 


1059 

005256 

020C03 




CMP 

R0.R5 


1060 

005260 

001401 




BEQ 

.♦4 


1061 

005262 

104400 




HL^ 
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1062 00326A 005 BOA 

1065 003266 001372 
106A 003270 000766 

1065 005272 022626 

1066 

1067 

1068 

1069 00327A 010701 

1070 003276 012737 

1071 00350A 162702 

1072 005310 005000 

1073 005512 005300 

1074 0033U 012704 

1075 005320 010042 

1076 003322 102406 

1077 003324 020227 

1078 003330 001403 

1079 003332 005304 

1080 003334 001571 

1081 003356 000765 

1082 

1083 005540 012737 

1084 005346 010701 

1085 005350 004767 

1086 003354 012757 

1087 003562 012702 

1088 003566 022704 

1089 

1090 005372 001415 

1091 005374 012203 

1092 005376 020005 

1093 005400 001402 

1094 005402 104400 

1005 003404 000406 

1096 003406 005142 

1097 003410 005112 

1098 003412 012203 

1099 003414 020003 

1100 003416 001401 

1101 003420 104400 

1102 003422 005204 

1103 003424 001560 

1104 003426 005200 

1105 003430 012704 

1106 005434 012203 

1107 003436 C20003 

1108 003440 001401 

1109 003442 104400 

1110 003444 005304 

1111 003446 001372 

1112 005450 000766 

1113 

1114 003452 022626 

1115 003454 005737 

1116 003460 001406 

1M 7 003462 005767 


t 2 
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MEMORY 

ADDRESS 

TESTS 




DEC 


R4 




BNE 


25 




BR 


15 



D0NE4B 

; CMP 


(SP)^ .(SP)^ 



.•ROUTINE TO 

WRITE CONSTANT DATA 



;BANK 

STARTING 

with last MEMORY 




MOV 


PC.R1 

005714 

000250 


MOV 


«MMABT1 .aiMMVEC 

000002 



SUB 


»2,R2 




CLR 


RO 



15; 

DEC 


RO 

010000 



MOV 


#4096.. R4 



25; 

MOV 


R0,-(R2) 




BVS 


D0NE4C 

017776 



CMP 


R2. #1 7776 




BEQ 


D0NE4C 




DEC 


R4 




BNE 


25 




BR 


15 

0C3452 

000004 

D0NE4C 

: MOV 


#D0NE4D.a#ERRVE 




MOV 


PC.R1 

002164 



JSR 


PC.LDMMO 

005662 

000250 


MOV 


#MMABTO.a#MMVEC 

020000 



MOV 


#20000. R2 

010000 


15; 

CMP 


#4096. .R4 


IN10 4K 
L0CA1I0N 


4S: 


010000 


55: 

25: 

35: 


BEO 

MOV 

CMP 

BEQ 

HIT 

BR 

COM 

COM 

MOV 

CMP 

BEQ 

HIT 

INC 

BNE 

INC 

MOV 

MOV 

CMP 

BEQ 

HLT 

DEC 

BNE 

BR 


;CHEC(( IF DONE 


25 

(R2)*,R5 

R0.R3 

45 

55 

-(R2) 

(R2) 

(R2)*.R5 

R0.R3 

55 

R4 

15 

RO 

A4096..R4 

(R2)*,R5 

R0,R3 

.♦4 

R4 

35 

25 


;CHECK IF WRITE ABOVE STARTED ON 
;4K BOUNDARY 


SEO 002' 


000042 

000620 


D0NE4D: CMP 
TST 
BEO 
TS1 


(SP)*.(SP)* 

a«42 

BEGINI 

5ENDAD^2 


BRANCH IF PROGRAM WAS NOT 
loaded via ACT11 IN Qv OR AA MODES 
BRANCH IF NOT IN QV MODE 
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118 

003466 

100005 




BPL 

BEGINI 



119 

003470 

012757 

000001 

004236 


MOV 

«1,a«ENDCT 

SET ENDCT TO DO 1 PASS 

ONLY IN Ov 

120 





.SBTTL 

WORST CASE NOISE 

TESTS 


121 





.this test writes memory worst case noise test PATTERNS 

throughout 

122 





; MEMORY 

AND CHECKS THAT THEY CAN 

BE WRITTEN AND READ. 


125 





;SET UP 

TRAP VECTORS 



124 

003476 

012706 

000500 


BEGINI : 

MOV 

ISTKPTR.SP 

SET STACK PTR 


125 

003502 

052737 

000014 

177746 


BIS 

fU.aiCNTRL 

DISABLE CACHE 


126 

003510 

004767 

001674 



JSR 

PC..MAMF 

GO enable parity ACTION 

127 

003514 

004767 

003742 



JSR 

PC.CKSWR 

GO CHECK SWITCHES 

normal 3X9 

128 

003520 

005027 




clr 

(PC) + 

;SET INDICATOR TO WRITE 

129 

003522 

000000 



PARPAT : 

.WORD 

0 

18 OR 22 BIT MODE? 


130 

003524 

005767 

175232 



TST 

MMAVA 


151 

003530 

001402 




BEO 

D0NE6 

NO— BRANCH 


132 

005532 

004767 

001754 



JSR 

PC. MARGIN 

YES— GO SETUP MARGINS 



C03556 

003542 

003544 

003552 

003556 

003560 


012706 

010701 

012737 

012746 

005046 

004767 


000500 

003564 

000001 

002344 


000004 


.•WRITE 3 XOR 9 TEST PATTERN START 
;NOTE PATTERN IS NORMAL 3 XOR 9 I 
:AND IS A MODIFIED PATTERN IF PAR 
;THE CONTENTS OF PARPAT If O/NOT 
:IS BEING USED IN TESTS BELOW. 
OONE6: MOV fSTKPTR.SP ; 

MOV PC.R1 ; 

MOV »D0NE7.a#ERRVEC ; 

MOV RI.-(SP) 

CLR -(SP) ; 

JSR PC. .3X9 ; 


ING AT ADDRESS 20000 
F NO PARITY MEMORY IS AVAILABLE. 

ITY MEMORY IS available. 

0 INDICATE IF NORMAl/MODI F lED PATTERN 

SET STACK PTR 

UPDATE TRACE REGISTER 

SET TIME OUT TRAP VECTOR 

PUSH STARTING BANK I ON STACK 

PUSH » OF 256. WORD BLOCKS TO WRITE 

CALL ROUTINE TO WRITE 3X0R9 PATTERN 


146 

147 




;CHECK 3 XOR 9 

TEST PATTERN WRITTEN ABOVE 


148 

003564 

012737 

001126 000004 

DONE 7 : MOV 

RERRTRP.aRERRVEC 



149 

003572 

016600 

000006 

MOV 

6(SP).R0 

GET t OF 256. WORD BLOCKS URI 

TIEN 

150 

005576 

005400 


NEG 

RO 

FORM TWO'S COMPLEMENT 


151 

003600 

010027 


MOV 

RO.(PC)* 

SAVE » OF 256 WORD BLOCKS 


152 

003602 

000000 


WDS. 256:. WORD 

0 

CONTAINS t OF 256 WORD BLOCKS 

IN MEM. 

155 

003604 

012706 

000500 

MOV 

#STKPTR,SP 

SET STACK PTR 


’5/. 

003610 

010701 


MOV 

PC.Rl 

SET SCOPE PTR 


155 

005612 

012746 

000001 

MOV 

fl,-(SP) 

PUSH BANK t ON THE STACK 


156 

003616 

010046 


MOV 

RO.-(SP) 

PUSH » OF 256. WORD BLOCKS TO 

WRITE 

157 

005620 

004767 

002524 

JSR 

PC... 5X9 

GO CHECK DATA WRITTEN 



003624 

003630 

003632 

003636 

003640 

003644 

003646 

003652 


003654 

003660 

005666 

005670 


005767 

001405 

005737 

001406 

005737 

001003 

010637 

000731 


012706 

012737 

010701 

012746 


175132 

005510 

005522 

003522 


000500 

005702 

000002 


;SETUP TO RUN MODIFIED 3 XOR 9 PATTERN IF PARITY MEMORY IS AVAILABLE 


TST 

MMAVA 

;18 OR 22 BIT MODE? 

BEO 

1$ 

; NO— branch 

TST 

aiPARAVA 

.-BRANCH IF PARITY MEMORY IS NO. AvAIl 

BEO 

D0NE8 

jBRANCH If PARITY PAT JUST WRITTEN 

TST 

aiPARPAT 

BNE 

D0NE8 

;SET INDICATOR TO WRITE 5X9 PAR PAT 

MOV 

SP.aiPARPAT 

BR 

D0NE6 

.•REPEAT TES’ USING MODIFIED 3x9 PATTERN 


00000 ^ 


;WRITE 8 XOR 15 TEST PATTERN STARTING AT ADDRESS 40000 
D0NE8: MOV fSTKPTR.SP ;SET STACK PTR 

MOV ROONE9.S«ERRVEC ;SET TIME OUT TRAP VECTOR 

MOV PC.R1 ;UPOATE TRACE REGISTER 

MOV f2.-(SP) .-PUSH STARTING BANK » ON THE S’ A ^ 


bEQ u 
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n 2 


17A 

00 56 7 A 

00S0A6 


CLR 

-(SP) 

;PUSH » OF BANKS TO WRITE ON THE STACK 

175 

176 

177 

005676 

OOA 767 

0052A2 

JSR 

PC. .8X15 

;G0 TO ROUTINE TO WRITE DATA 




;CHECK 8 XOR 15 

TEST PATTERN 

WRITTEN ABOVE 

178 

005702 

012706 

CJ0500 

DONE 9: MOV 

ISTKPTR.SP 

;SET STACK PTR 

179 

005706 

010701 


MOV 

PC.R1 

;UPOATE TRACE REGISTER 

180 

005710 

012757 

001126 OOOOOA 

MOV 

AERRTRP.BfERRVEC 

181 

005716 

0127A6 

000002 

MOV 

#2.-(SP) 


182 

005722 

005A0A 


NEG 

RA 

;SET AK BANK COUNT TO 8K INCREMENT 

185 

00572A 

0A270A 

000001 

BIC 

fI.RA 

18A 

005750 

001A05 


BEQ 

DONE 10 

;D0 NOT CHECK IF ONLV 12K 

18S 

005752 

010AA6 


MOV 

RA,-(SP) 

;G0 CHECK 8 XOR 15 PATTERN WRITTEN ABOVE 

186 

187 

00575A 

OOA 767 

005212 

JSR 

PC. ..8X15 

188 

189 

0057AO 

000005 


DONE10: RESET 


;D1SABlE mem MGMT AND PARITY ACTION 


190 

191 
102 
195 


: RANDOM 


I19A 

0057A2 

010701 



RANTST: 

MOV 

PC.R1 ; 

195 

005 7AA 

012757 

OOA 102 

OOOOOA 


MOV 

«7S,i«ERRVEC 

196 

005752 

005767 

1 7500A 



TST 

MMAVA 

197 

005756 

001A12 




BEQ 

IS 

198 

005760 

OOA 76 7 

001 55A 



JSR 

PC.LDMMO ; 

199 

00576A 

105237 

172301 



INCB 

a«KIPDR0«1 ; 

200 

003770 

012757 

077A06 

17230A 


MOV 

#200*256. -AOO^UP* 

201 

003776 

012757 

OOOAOO 

1723AA 


MOV 

#A00,a#KlPAR2 

202 

OOAOOA 

012702 

020000 


IS: 

MOV 

#20000. R2 ; 

205 

00A010 

00500A 




CLR 

RA 

20A 

00A012 

012705 

OOAOOO 


2S: 

MOV 

#20A8.,R5 ; 

205 

00A016 

012A22 



3S: 

MOV 

(RA)*,(R2)* ; 

20e 

00A020 

012A22 




MOV 

(RA)*,(R2)* 

207 

00A022 

005305 




DEC 

R5 

208 

00A02A 

001 37A 




BNE 

3S 

^Ot 

210 

00A026 

012705 

005A05 



MOV 

#A096.-PLACEO,R' 

1211 

0OA032 

01AA00 



AS: 

MOV 

-(RA).RO 

212 

00A05A 

01A203 




MOV 

-(R2).R3 

215 

0OA036 

020003 




CMP 

R0.R3 

I21A 

OOAOAO 

001A03 




BEQ 

5S 

215 

00A0A2 

0057^2 




TST 

(R2)* ; 

1216 

OOAOAA 

10AA00 




HLT 


1217 

00A0A6 

0057A2 




TST 

-(R2) : 

1218 

00A050 

005305 



5S: 

DEC 

R5 

1219 

1 0 OA 

00A052 

001567 




BNE 

AS ; 

1 CCS) 
1221 

00A05A 

005767 

1 7a 702 



TST 

MMAVA 

1222 

00A060 

001A05 




BEQ 

6S 

1223 

00A062 

005257 

1723A2 



INC 

a#KlPAR1 

122A 

OOA 066 

005257 

1723AA 



INC 

a#KIPAR2 

1225 

00A072 

000 7A A 




BR 

1S 

1226 

00A07A 

062702 

000100 


6S: 

ADD 

#6A.,R2 

1227 

COA100 

000 7AA 




BR 

2S 

1228 

OOA 102 

012706 

000500 


71 : 

MOV 

#STKPTR.SP 

1229 

OOA 106 

012757 

001126 

OOOOOA 


MOV 

#ERRTRP,a#ERRvEC: 


.SBTTL random data, rotating 1/0 TESTS 

DATA TEST. THIS TEST MOVES THE PROGRAM CODE THROUGHOUT MEMORT 

SET TRACE POINTER 
SET TIME OUT TRAP 
CHECK IF MEM MGMT IS AVAILABLE 
BRANCH IF NOT AVAILABLE 
GO SET UP MEM MGMT 
ALIOU AK ADDRESSING IN FIRST AK 
RW.BAKIPDR2 ;SET KIPDR2=RU UP 200 BLOCKS 

SET MO* ADDRESS POINTER 
SET 'FROM* ADDRESS POINTER 
SET AK WORD COUNT 
MOVE CODE 

.DECREMENT AK WORD COUNTER 


:SET AK WORD COUNTER 
GET 'GOOD* DATA 
GET 'BAD* DATA 
COMPARE 'GOOD* t 'BAD* DATA 

STEP ADDRESS FOR ERROR ROUTINE 
REPORT ERROR 
RESTORE ADDRESS POINTER 
DECREMENT AK WORD COUNTER 
LOOP UNTIL AK WORDS CHECKED 


.•STEP ADDRESS 
.•RESET STACK PTR 


S£Q OOPb 


N 2 
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RANDOM 

DATA. ROTATING 1/0 TESTS 


1250 

1251 




;R01A1ING 0 TES1 

. THIS TEST ROTATES A SINGLE 'O' THROUGH MEMORY 

1252 

004114 

012767 

177777 

005304 RO10: 

MOV 

A-1 ..CONST 

SET CONSTANT =177777 

1255 

004122 

012746 

00000 i 


MOV 

#1 .-(SP) 

SET BANK #1 

125A 

004126 

016746 

177450 


MOV 

WDS.256,-(SP) 

GET # OF 256. UORD BLOCKS IN MEMORY 

125S 

004152 

004767 

005252 


JSR 

PC.URTPAT 

GO URITE rS THROUGHOUT MEMORY 

1256 

004156 

0107C1 



MOV 

PC.RI 

SET SCOPE PTR 

1257 

004140 

012746 

000001 


MOV 

#1 .-(SP) 

SET starting bank # 

1258 

004 1 44 

016746 

177452 


MOV 

WDS.256,-(SP) 

SET « OF 256. UORD BLOCKS TO CHECK 

1259 

1 A 

004150 

004767 

003004 


JSR 

PC, .ROTO 

GO TO ROTATE 0 ROUTINE 

1 cAO 
1241 




;R01AT1N6 1 TES1 

THIS TEST ROTATES A SINGLE '1' BIT THROUGH ALL OF 

1242 




.•MEMORY 




1245 

004154 

005067 

005^^46 

R011 : 

CLR 

.CONST 

CLEAR CONSTANT 

1244 

004160 

012746 

000001 


MOV 

*1 .-(SP) 

PUSH STARTING BANK ONTO STACK 

124S 

004164 

016746 

177412 


MOV 

UDS.256.-(SP) 

AND # OF 256. UORD BLOCKS IN MEMORY 

1246 

004170 

004767 

005214 


JSR 

PC.URTPAT 

GO URITE O’S throughout MEMORY 

1247 

004 1 74 

010701 



MOV 

PC.RI 

SET SCOPE PTR 

1248 

004176 

012746 

000001 

V 

MOV 

*1 ,-(SP) 

SET STARTING BANK # 

1249 

004202 

016746 

177574 


MOV 

W0S.256.-(SP) 

SET # OF 256. UORD BLOCKS TO CHECK 

1250 

004206 

004767 

005042 


JSR 

PC..R0T1 

GO ROTATE A T BIT THROUGHOUT MEMORY 

1251 








1252 




.END OF CYCLE 



1255 

004212 

000005 


END: 

RESET 



1254 

004214 

042757 

000014 

177746 

BIC 

«14,SiCNTRL 

RESET MACHINE TO KEY-START STA.'E 

1255 

004222 

010701 



MOV 

PC.RI 

UPDATE TRACE REGISTER 

1256 

004224 

012706 

000500 


MOV 

IfSTKPTR.SP 

SET STACK PTR 

1257 

004250 

005237 

000752 


INC 

BilCNT 

INCREMENT PASS COUNT 

1258 

004254 

022757 



CMP 

(PC)*.a(PC)* 

CHECK FOR LAST PASS 

1259 

004256 

000006 


ENDCT: 

.WORD 

6 

MAKE 5 PASSES 

1260 

004240 

000752 



.UORD 

ICNT 

PASS COUNT ADDRESS 

1261 

00<.242 

001405 



BEQ 

DONE 

BRANCH IF last PASS COMPLETED 

1262 

004244 

004567 

174520 


JSR 

R5,»PRINT 

GO TO PRINT ROUTINE 

1265 

004250 

01015, ■’ 



ASTERISK 


1264 

004252 

00015 

005476 


JMP 

aiBEGINI 


1265 

004256 



DONE: 




12/6 

004256 

0C4 './• 

174506 


JSR 

R5, SPRINT 

;G0 TO PRINT ROUTINE 

1267 

004262 

010154 



ENDMSG 



1268 

004264 

105757 

177564 


TSTB 

aATPS 

;UAIT FOR BELL TO RING 

1269 

004270 

100575 



BPL 

. -4 


1270 

004272 

013700 

000042 


MOV 

a«42.R0 

;GET DECTAPE MONITOR RETURN ADDRESS 

1271 

004276 

0014C. 



BEQ 

FINISH 


1272 

004500 

004767 

175704 


JSR 

PC.SRLDR 

;RESTORE MONITOR & LOADERS 

1275 

004504 

004710 


SFNDAD 

JSR 

PC,(RO) 

;60 TO DECTAPE MONITOR 

1274 

004506 

000240 



NOP 



1275 

004510 

000240 



NOP 



1276 

004512 

000240 



NOP 



1277 

004514 

000167 

176120 

FINISH 

JMP 

START1 


1278 

1279 





.SBTTL 

PROGRAM SUBROUTINES 

1280 





.SBTTL 

RELOCATION ROUTINES 

1281 




.•ROUTINE TO RELOCATE PROGRAM CODE 

1282 

004520 

012500 


RELOC: 

MOV 

(R5)+,R0 

;GET FROM ADDRESS 

1285 

004522 

011502 



MOV 

(R5),R2 

;GET TO ADDRESS 

1284 

004524 

010205 



MOV 

R2.R3 


1285 

004526 

062705 

017776 


ADD 

#17776. R5 

.•MOVES 4^ 
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relocation i 

'2ftt 

004552 

012757 

004402 

000004 


FIOV 

’287 

004540 

005004 




ClR 

1288 

004542 

005725 




TST 

’289 

004544 

012022 



IS: 

F»OV 

’290 

004546 

020205 




CHP 

1291 

004 5S0 

00T575 




6NE 

1292 

004552 

01T5C5 




FTOV 

1295 

004554 

020205 



2S: 

CFTP 

129<, 

004556 

001415 




BEO 

129S 

004560 

024042 




CHP 

1296 

004562 

001774 




BEO 

1297 

004564 

005705 




TST 

1298 

004566 

001405 




BEO 

1299 

004570 

104400 




mlt 

1500 







1501 

004572 

OOOCOO 




HAL 

1502 

004574 

000767 




BR 

1505 

004576 

000000 



5S: 

HAL 

1504 







150S 

004400 

000777 




BR 

1506 

004402 

022626 



4S: 

CFTP 

1507 

004404 

005104 




CON 

1508 

C04406 

000240 



5S: 

NOP 

1509 

004410 

012702 

000764 



FIOV 

1510 

004414 

061502 




ADD 

1511 

004416 

012512 




F^OV 

1512 







1515 

004420 

000205 




RTS 

15K 







1515 







1516 





;R0UTINE TO 

1517 





;T0P OF 

FTEFTI 

1 518 

004422 

012700 

020000 


RELOCP: 

FIOV 

1519 

004426 

012757 

000006 

000004 


FIOV 

1520 

004454 

062700 

020000 


IS: 

ADD 

1521 

004440 

000261 




SEC 

1522 

0C4442 

005710 




TST 

1525 

004444 

105573 




BCC 

1524 

004446 

012737 

001126 

000004 


FTOV 

1525 

004454 

162700 

020000 



SUB 


M:*>b 


»<>s.am>RwEc 

R<i 

(R5)* 

IRO)* ,(R?»* 
R?.R5 

IS 

IRS) .R5 
R2.R5 

SS 

-(RO) .-(«?) 

?S 

R5 

5S 


(SP)« .(SP)* 
R<. 

RRELOCf .R2 
(R5) .R2 
(R5)*.^R2) 


SET TIME OUT TRAP 

Clear relocatiom successtul indicator 

CHECK IF HEFIORT is AvAl* ABi F 
RELOCATE 

RELOCATION COMPLETE’ 


BRANCH IF DONE 

CHECK that data was RELOCATED PROPE Ri T 

CHECK IF RELOCATING BACK TO 000000 

ERROR! CANNOT RELOCATE PROGRAf^ CODE 
TO UPPER FTEFTORT BANK PROPERLY 

continue relocating at YOUR PERU 
ERROR! CANNOT RELOCATE CODE BACK TO 
TO 000000 properly 

RESTORE STACK PTR 


GET ADDRESS OF RELOCATION FACTOR 
ADD FACTOR 

RELOCATED RELOCF NOU CONTAINS RELOCATION 
FACTOR 

RETURN. R<.--1 IF NO RELOCATION 


#20000. RO ;SET UP TO SCAN FOR TOP OF FTEMCRy 

«ERRvEC*2.a«ERRVEC 

#20000. RO ;INCREF1ENT SCAN ADDRESS 

.'SET TIF1E OUT INDICATOR 
(RO) ;CHECK FOR EXISTANT NEHORY 

IS ;’C’ uiLL BE Clear if fieftory exists 

tFRRTRP afFRRvFC 

#20000. RO ’ ;ADJUST TO LAST EXISTANT LK 




SfO 00?8 


n/7C nin TSI »AC»11 50A(10W) 09*flB-79 12:^6 
■‘P'jAO.P’.l 09-rCB-79 11:18 RfLOCATlON ROUTIHES 


C 

PA',t 29 


5 


?t 0OA<.60 01006^ 000006 
2 7 00A<.6<. 00A567 177650 


MOV RO.^t 

JSR RS.RELOC 


;PASS RELOCATION ADDRESS TO RElOC ROUTINE 
:RElocate program 


'fWjAOO 11/70 TS1 
C{«JA0.P11 09-ftB-79 

1528 00<.<.70 000000 
’529 004472 000000 
1 55C 004474 004567 

’55’ 004500 010115 


0 5 

«AC»11 50A(1052J 09-flB-79 12:56 PAjE 50 

11:18 RELOCATION R0U11BE 5 SfO 0029 


1 Tkc 70 



000000 


:(ROM ADDRESS 000000 

2»: 

.WORD 

0 

:T0 last 4k bank 


JSR 

relocn 

R5. SPRINT 

;Gn TO PRINT ROUTINE 


5 


E 

r.LHjADO 11/70 nin TSl HACtll 50A(10S2) 09-fEB-79 12:56 PAOE 51 

CEHJAD.PII 09-f£B-79 11:18 RELOCATION ROUTINES SEO 0050 


1552 

004502 

016746 

1 77764 



NOV 

2S.-ISP) 


PASS TO 02A ROUTINE 

1555 

004506 

062716 

010170 



ADD 

fREL24K.(SP) 


SET UP RESTART ADDRESS 

155A 

004512 

004767 

175276 



JSR 

PC.02A 


TYPE RESTART ADDRESS 

1555 

004516 

01166? 

000006 



NOV 

(SP).5S 


SAVE RETURN ADDRESS IN 5S BElOW 

1556 

004522 

066706 

177744 



ADD 

2S.SP 


RESET STACK PTR 

1557 

004526 

012716 




NOV 

(PC)*.(SP) 


GET RETURN ADDRESS 

1558 

004550 

OCOOCO 



3S: 

.WORD 

0 


CONTAINS RETURN PC 

1559 

004552 

066716 

177754 



ADO 

21. (SP) 


ADJUST RETURN PC 

15A0 

1 Xy 1 

004556 

000207 




RTS 

PC 



1 542 






.sbttl 

NA/NF PARITY 

ERROR SERVICE ROUTINE 

1545 





;WHEN MA/Hf A PARITY ERROR IS 

DETECTED THIS ROUTINE SCANS NENORY FOR THE 

1544 





.-ADORES 

S CAUSING THE PARITY ERROR. WHEN ThE ADDRESS IS LOCATED THE ROUTINE 

1545 





; HAL IS 

WITH THE 

ADDRESS«2 IN 

RO. 

TO CONTINUE AFTER THE ERROR PRESS CONTINUE. 

1546 

004540 

010067 

000172 


.PA'ISRV 

:NOV 

RO.SAVRO 


;SAVE RO IN SAvRO 

1 i47 

0C4544 

012/00 

004740 



NOV 

fSAVR0*2.R0 



1548 

004550 

C10120 




NOV 

RI.(RO)^ 



1549 

004552 

010220 




NOV 

R2.1R0)^ 



1550 

004554 

010520 




NOV 

R5,(R0)^ 



1551 

004556 

010420 




NOV 

R4.(R0)^ 



1552 

004560 

010520 




NOV 

R5.(R0)* 



1555 

004562 

004567 

1 74202 



JSR 

R5. SPRINT 


;G0 TO PRINT ROUTINE 

1554 

004566 

004752 




PARERR 




1 555 

004570 

005027 




Cl R 

(PC)^ 


:CLFAR PARITY ERROR INDICATORS 

1556 

004572 

000 



PEFLG: 

.BYTE 

0 


;NOT 0/0 -PAR ERR/NO PAR ERR 

1557 

004575 

000 



PENFLG: 

• BYTE 

0 


;NOT 0/0-PAR ERR DETECTED/NOT DETECTED ON SCAN 

1558 

004574 

012757 

004642 

000114 


NOV 

«2S.af<>ARvEC 


;SET parity ERROR TRAP 

1 559 

004602 

012757 

004702 

000004 


NOV 

«4S.afERRVEC 


;SET TINE OUT TRAP VECTOR 

1560 

004610 

005002 




CLR 

R2 



1 561 

004612 

005767 

1 74144 



TST 

NNAVA 


;CHECK IF NEN NGNT IS AVAILABLE 

1562 

004616 

001407 




BEO 

IS 


.-branch if not available 

1565 

004620 

004767 

000^14 



JSR 

PC.LDNNO 


.-SET UP NEN NGNT 

■ 56<» 

004624 

105257 

1 72501 



INCB 

aVKlPDROH 


;ALL0W full 4K page ADDRESSING 

1 565 

004650 

012737 

005662 

000250 


NOV 

»NNABTO.a«NMvEC 

;SET NEN NGNT ABORT TRAP VECTOR 

1366 

004656 

012200 



IS: 

NOV 

(R2)^.R0 


;SCAN ALL ADDRESSES 

1 567 

004640 

000776 




6R 

IS 



1568 

004642 

’10667 

177724 


2S: 

NOVB 

SP. PEFLG 


.-SET PARITY ERROR FOUND INDICATOR 

1 569 

004646 

010003 




NOV 

R0.R5 



1570 

004650 

104400 




hlt 



.-PARITY ERROR! ADDRESS*2 IS IN R2 

1 571 

004652 

000177 

005574 



JNP 

aPARCLR 


:NUST CLEAR BAD PAR LOCATION 

1 572 

004656 

000240 



5S: 

NOP 



.-INSERT halt INST TO EXAMINE PARITY REGS 

1575 

004660 

005067 

177706 



CLR 

PEFLG 


.-CLEAR PARITY ERROR INDICATORS 

1574 

00*,664 

012706 

000500 



NOV 

ASTKPTR.SP 


.-RESET STACK PTR 

1575 

004670 

000005 




RESET 




’576 

004672 

004767 

000512 



JSR 

PC,.NANF 


;G0 ENABLE PARITY ERROR DETECTiON 

1577 

004676 

000177 

003342 



jNP 

aCLRPAR 


;CLR par error LOCATION 

1 578 

1 579 





.-SERVICE ROUTINE IF PARITY ERROR NOT DETECTED ON SCAN 

1580 

004702 

105767 

1 77664 


4S: 

TSTB 

PEFLG 


.-BRANCH IF parity ERROR WAS 

1 381 

004706 

001365 




6NE 

3S 


.-DETECTED ON SCAN 

1582 

004710 

016602 

000C04 



MOV 

4(SP) .R2 


.-GET PC AT TIME OF ERROR 

1585 

004714 

162702 

000002 



SUB 

f2.R2 


;BACK IT UP 

1 584 

004720 

1 10667 

177647 



MOVB 

SP. PENFLG 


;SET IND - NO PAR ERROR DETECTED ON SCAN 

1 585 

004724 

004567 

1 74040 



JSR 

R5. SPRINT 


;&0 TO PRINT ROUTINE 

’ 586 

004750 

004773 




NOf IND 




• 587 

004752 

104400 




HlT 



;ERROR. PARITY ERROR NOT DETECTED CN SCAN 


SEO 0051 


n/70 

TS1 

PIACTi 1 

50A11052 

) 09-f EB-79 12 

E 3 

:56 PA5E 52 




P' 1 

j9-f EB-79 

11:18 


Pk/m PARlIt ERROR SERvlCE ROUUNE 



004.754, 

000750 




BR 

51 



1 589 





;1NE BElOy 6 WORDS COMTAlNb THE SAVED CONTENTS Of R0-R5 WHEN THE 

1590 





.•PARITY 

ERROR OCCURRED 



1591 

004.756 

000000 



SAVRO: 

.WORD 

0 



159? 

004.74.0 

000000 



SAVRI : 

.WORD 

u 



1 595 

00474.2 

000000 



SAVR2: 

.WORD 

c 

- 


’594. 

004.74.4. 

OOOOCO 



SAVR3: 

.WORD 

0 



1595 

004.74.6 

000000 



SAVR4: 

.WORD 

0 



1596 

004.750 

000000 



SAVR5: 

.WORD 

0 



1597 










1598 

004.752 

005015 

040520 

044522 

PARERR: 

.ASCIZ 

<15><12>'PARITy FRR0R'<15><12> 


1599 

004.760 

054524 

042440 

051122 






14.00 

004.766 

051117 

005015 

000 






14.01 

004.775 

116 

052117 

045040 

NOF IND: 

.ASCIZ 

•NOT fOUND ON SCAN'<15><12> 


KO? 

005000 

0525’7 

042116 

047440 






’4,05 

005006 

020116 

041525 

047101 






14.04. 

005014. 

005015 

000 







14.05 


005020 




.EVEN 




14.06 










14,07 










14.08 


177740 



ME MlO=1 77740 




14.09 


177742 



MEMhM 77742 




14,10 

’4.11 


177744 



MEM£RR= 

177744 




Ul? 

14,15 

005020 

005767 

177546 


.22PAR; 

TST 

peflg 

BEEN HERE BEFORE 


14,14, 

005024. 

001405 




BED 

1( 

BRANCH IF NO 


14,15 

005026 

000000 




halt 


■YES — DOUBLE PARITY ERROR 

14.16 

005050 

000177 

175426 



JHP 

aPERSTRT 



14,17 

005054. 

010667 

177532 


11: 

MOV 

sp.peflg 

SET PARITY error FlAG 


14.18 

00504.0 

005737 

177570 



TST 

a«swR 

halt on error? 


14,19 

005044. 

100001 




BPL 

100S 

BRANCH IF NO 


14,?0 

005046 

000000 




halt 


YES 


14,?1 

005050 

015746 

177744 


’OOt: 

MOV 

a«MEMERR,-TSP) 

SAVE MEMORY ERROR REG 


14.2? 

005054 

013701 

177740 



MOV 

aiMEMLO.RI 

GET ADDRESS OF WHERE THE 

PARITY 

14,25 

005060 

015702 

177742 



MOV 

aRMEMHl.R2 

ERROR OCCURRED 


14.?/, 

005064 

011637 

177744 



MOV 

(SP),a#MEMERR 

Clear the error reg 


14.25 

005070 

052757 

020000 

177570 


BIT 

RBIT15.aiSUR 

inhibit error typeout 


14,26 

005076 

001071 




BNE 

1011 

BRANCH IF YES 


14,27 





;PR1NT 

■'PARITY 

ERROR" 



14.28 

005100 

004567 

175664 



JSR 

R5. SPRINT 



14,29 

005104 

004752 




PARERR 




14,30 





;PR1NT 

•■pc^xxxxxx" 



14,51 

005106 

004567 

175656 



JSR 

R5, SPRINT 



14,52 

005112 

001475 




ERRPC 




14,55 

0051 14 

016646 

000002 



MOV 

2(SP),-1SP) 

GET PC AT TIME OF PARITY 

ERROR 

14.54. 

005120 

066716 

175640 



ADD 

RELOCf .(SP’ 



14.55 

005124 

004767 

1 74664 



JSR 

PC.02A 



14.56 

005130 

004567 

1 75654 



JSR 

R5. SPRINT 



K57 

005154 

002361 




SPACE! 




14.58 





; C MANGE 

22-BlT 

ADDRESS TO OCTAl-ACSI! 


14,59 

005136 

012700 

002551 



MOV 

fDlGlTS.RO 



14.4.0 

005142 

012704 

000010 



MOV 

#8. ,R4 



’4,4,1 

005146 

012705 

000005 


2S: 

MOV 

#5.R5 



U4,? 

005152 

005005 



51: 

ClR 

f/5 



U4,5 

005154 

006501 



4S: 

ASL 

R1 




G 5 

r/‘’0 TST HACtn 50A1105?) 09-FtB-79 12:^6 PAOE ^5 

FMjAn.pn 09-fEB-79 l.rlB «A/Bf PARITY ERROR SERVICE ROUTINE 


OOS1S6 
00S160 
00^162 
005 16A 
005170 

005172 

005176 

005200 


106102 

006105 

07750A 

116520 

077A12 

OOA567 

002527 

00A767 


002512 


175572 

172674 


ROlB R2 

ROL R5 

SOB R5.4t 

nOvB D1GTAB(R5) . (RO)* 

SOB R4.2t 

;PR1NT •HENORY ADDRESS IS AAAAAAAA" 
JSR RS.tPRINT 
ADRESS 

JSR PC.CRLf 

;PR1NT ••PARITY ERROR REG X»nX»'‘ 


1454 

005204 

004567 

175560 


JSR 

RS.tPRINT 

1455 

005210 

001551 



PARREG 


1456 

005212 

011605 



MOV 

(SP).R5 

1457 

005214 

004767 

174574 


JSR 

PC.02A 

1458 

005220 

004767 

175544 


JSR 

PC.tPRINT 

1459 

005224 

002561 



SPACE 1 


1460 




;PRINT 

THE MARGIN SETTING 

1461 

005226 

016700 

17552C 


MOV 

ICNT.RO 

1462 

005252 

116000 

005552 


MOVB 

MRGNTB(RO) .RO 

1465 

005256 

062700 

005266 


ADD 

iMARTBl .RC 

1464 

005242 

011067 

000004 


MOV 

lR0),5t 

1465 

005246 

004567 

1 75516 


JSR 

R5. SPRINT 

1466 

C05252 

005266 


5S: 

martbl 


1467 

005254 

004567 

175510 


JSR 

R5, SPRINT 

1468 

005260 

005575 



MARMSG 


1469 

005262 

000177 

175174 

101S: 

JMP 

aPERSTRT 

1470 




.MARGIN 

MESSAGE 

table 


1471 

1472 
U75 
14 74 
1475 
14 76 

1477 

1478 

1479 
•480 

1481 

1482 
1485 

1484 

1485 

1486 
•487 
’488 

1489 

1490 

1491 

1492 
1495 

1494 

1495 

1496 

1497 

1498 
U99 


005266 

005270 

005272 

005274 

005276 

005500 

005502 


005 504 
005312 
005515 
005520 
005526 
005550 
005556 
005544 
005552 
005560 
005566 
005574 
005575 
005402 


005504 

000000 

005515 

005550 

005544 

005560 

005504 


047516 

000 

105 

051440 

000105 

040514 

051124 

047514 

051122 

044510 

051125 

000 

040 

047T11 

005410 


000114 


046522 046101 


051101 

051124 

042524 

04’117 

020127 

047105 

044107 

042522 

040515 

006412 


054514 

041117 

051440 

000105 

052505 

000124 

041440 

052116 

045522 

000 


MARTBL: normal 
0 

ES1RB 

lstrb 

LCRNT 

HCRNT 

normal 

jMARGIN MESSAGES 
normal: .ASCIZ ‘NORMAL* 

ESTRB: .ASCIZ 'EARLY STROBE' 


lSTRB: .ASti: 'LATE STROBE* 
lCRNT: .ASCIZ 'lOU CURRENT* 

MCRNT: .ASCIZ *MlGM CURRENT* 

MARMSG: .ASCIZ * MARGIN*<12><15> 

.EVEN 

.•ROUTINE TO enable PARITY ERROR ACTION ON 11/70 PARITY MEMORIES 

PARvEC-114 jPARlTY ERROR INTERRUPT VECTOR ADDRESS 


0OH10 052757 000040 17757C .MAMf : BIT 


f40.iiSWR 


ruECY If parity error detection is *0 


SEO OOS5 


ffMjAOO M/70 

MEM TST 

MACVll 

50A11052) 

09-flB-79 12 

H 5 

:56 PAGE 54 


MMjAL. 

PM 09-EE8-79 

11:18 


MA/ME PARITY ERROR SERVICE ROUTINE 

1500 

005416 

001007 



BNE 

It 

:BE ENABLED. BRANCH IE NOT TO BE ENABLED 

ISOT 





.•enable parity 

ERROR DETECTION 


1502 

005420 

042737 

000002 

177746 

BIC 

«2.a«CN1RL 

;01HERWISE, INSURE THAT PARITY ERROR 

1505 







;DETECTION IS ENABLED 

1504 

005426 

012767 

000001 

000054 

MOV 

«1 .PARAVA 

;SET parity ERROR DETECTION INDICATOR 

1505 

005454 

000405 



BR 

2t 


1506 





;DISABlE parity 

ERROR DETECTION 


1507 

0054 56 

052757 

00000? 

177746 

11: BIS 

«2.a«CNTRL 

;OISABLE parity ERROR DETECTION 

1508 

005444 

005067 

000040 


ClR 

PARAVA 

:CLEAR PARITY ERROR DETECTION INDICATOR 

1509 





;SET-UP parity 

ERROR SERVICE TRAP fOR 18-BIT OR 22-BIT 

1510 





.ADDRESSING MODES 


1511 

005450 

012757 

004540 

000114 

21 : MOV 

*.PARSRV.a*PARVlC ;SET-UP 18-BIT ADDRESS PARITY 

1512 







;ERROR TRAP VECTOR 

1515 

005456 

012757 

000540 

000116 

MOV 

*540.a«PARvEC«2 

;PRI0RITY level 7 ON TRAP 

1514 

005464 

005767 

175272 


TST 

MMAVA 

;18 OR 22 BIT MODE? 

1515 

005470 

001406 



BEO 

5t 

iBRANCH IF NOT. OTHERWISE 

1516 

005472 

012737 

005020 

000114 

MOV 

#.22PAP.a*PARvEC 

;SE7-UP 22-BIT ADDRESS PARMy 

1517 







;ERROR TRAP VECTOR 

1518 

005500 

012757 

000540 

000116 

MOV 

«540.afPARvEC«2 

;PRI0R1TY level 7 ON TRAP 

1519 

005506 

000207 



5$: R1S 

PC 

; RE TURN 

1520 

005510 

000000 



PARAVA: .WORD 

0 

.•parity ERROR DETECTION INDICATOR 

1521 







:0 - PARITY ERROR DETECTION IS DISABLED 

1522 







.•1 - PARITY ERROR DETECTION IS ENABLED 

1525 








1524 








1525 





.SBTTl 

MARGIN ROUTINE 


1526 





;ROUTINE TO SET 

THE MARGINS 


1527 


177750 



MAINTRG=177750 



1528 








1529 

005512 

016700 

1 75254 


MARGIN: MOV 

ICNT.RO 

;PASS COUNT 

1550 

005510 

005002 



CLR 

R2 

.•FAST COUNTER 

1551 

005520 

116057 

005532 

177750 

MOVB 

MRGNTBCRO) .a«MAlNTRG :L0AD MAINTENANCE REG. 

’552 

005526 

077201 



11: SOB 

R2.1t 


1555 

005530 

000207 



RTS 

PC 



005552 

005533 

005554 

005555 

005536 

005557 


MR )NTB: 


.BYTE 

.BYTE 

.ByTl 

.BYTE 

.BYTE 

.BYTE 


NORMAL 

EARLY STROBE 
LATE STROBE 
LOW CURRENT 
HIGH CURRENT 

normal 


.SBTTL mem MGMT ROUTINES 

.ROUTINE TO initialize MEMORY MANAGEMENT REGISTERS 


1545 

005540 

000240 



lDMMO: 

NOP 





1546 

005542 

005767 

1 75214 



TST 

MMAVA 



1 

1547 

005546 

001444 




BEO 

It 




1548 

005550 

052737 

000100 

177570 


BIT 

«Bn6,aRSwR :18 BIT UNIBUS 

MAPPING? 



1549 

005556 

001004 




BNE 

2t ; YES— BRANCH 




1550 

005560 

012757 

000020 

172516 


MOV 

*20.a«SR5 ;22 BIT MODE 




1551 

005566 

000405 




BR 

3t ; 




1552 

005570 

012757 

000040 

1 72516 

2t: 

MOV 

«40.aRSR5 .-ENABlE UNIBUS 

MAP 



1553 

005576 

012757 

077006 

172500 

5t: 

MOV 

»177«256.-400«UP*RW.a»KlPDRO 

;SET KIPDRO-RW 

UP 

1 77 BS 

1554 

005604 

012737 

077406 

172502 


MOV 

»200»256.-400*UP*RW.aiKlPDR1 

;S{T kIPDRMRW 

UP 

200 BLOf AS 

’555 

005612 

005057 

172504 



ClR 

aR*!lPDR2 





SEO 00?^ 


1 5 

n/70 TSI nACtll 50A(10S?) 09-EEB-79 12;S6 PAGE 5S 

CEMjAD.Pn 09-EEB-79 11 :18 HEH HOni POUT IKES 


1SG6 

005616 

005057 

1 72544 



CLR 

a«KlPAR2 


1SS7 

005622 

012757 

077406 

172316 


MOV 

*200*256. -400»UP*Rw.a*KlP0R7 ;SET ICIPDR7-RU uP 200 BLOCKS 

'558 

005650 

005057 

172540 



flR 

a*KlPARO 


1559 

005654 

012757 

00020C 

172542 


MOV 

*200.afKlPAR1 


1560 

005642 

012757 

177600 

1 72556 


MOV 

«1 77600, a*KlPAR7 


1561 

005650 

012757 

000001 

177572 


MOV 

ii.a*SRO 

;ENABlE mem mg*! 

1562 

005656 

000240 




NOP 



1565 

005660 

000207 



IS: 

RTS 

PC 


1564 









1565 





; MEMORY 

MANAGEMENT ABORT ROUTINE 

fOR WRITE UP 

1566 

005662 

012702 

020000 


MMABTO: 

MOV 

*20000. R2 

.RESET R2 

1567 

005666 

062757 

000200 

172542 


ADD 

*200,a*KIPAR1 

.•ADVANCE TO NEXT 4K 

1568 

005674 

015716 

177576 



MOV 

a*SR2.(SP) 

:RETURN TO INSTRUCTION THAT 

1569 

005700 

005057 

177572 



CLR 

a*sRO 

.•DISABLE MEM MGMT 

1570 

005704 

012757 

000001 

177572 


MOV 

*1 .a*sRO 

; ENABLE MEM MGMT 

1571 

005712 

000002 




RTI 


; CAUSED THE ABORT 

1572 









1575 





:MEM MGMT ABORT 

SERVICE FOR WRITE DOWN 

1574 

005714 

012702 

040000 


MMABT1 : 

MOV 

*40000. R2 

.•RESET R2 

1575 

005720 

162757 

000200 

172342 


SUB 

*200.a*KIPAR1 


1576 

005726 

001406 




BEQ 

2S 


1577 

005750 

015716 

177576 



MOV 

a*SR2.(SP) 


1578 

C05754 

012757 

000001 

177572 


MOV 

*1 .a*SRO 

: ENABLE MEM MGMT 

1579 

005742 

000002 




RTI 



1580 

005744 




2S: 




1581 

005744 

005057 

177572 



CLR 

a*sRO 

.•disable mem MGMT 

1582 

005750 

052766 

000002 

000002 


BIS 

*V.2(SP) 


1585 

005756 

000002 




RTI 



1584 









1585 





.•ROUTINE TO SET 

UP MEMORY MANAGEMENT FOR PATTERN TESTS 

1586 

005760 

005702 



STMM2: 

TST 

R2 

.CHECK IF TESTING BANK * 0 

1587 

005762 

001442 




BEQ 

2S 

;EXIT IF BANK * 0 

1588 

005764 

005767 

172772 



TST 

MMAVA 


1589 

005770 

001005 




BNE 

IS 

.•BRANCH IF MEM MGMT AVAILABLE 

1590 

005772 

006002 




ROR 

R2 

;ADJUST address 

1591 

005774 

006002 




ROR 

R2 


1592 

005776 

006002 




ROR 

R2 


1595 

006000 

006002 




ROR 

R2 


1594 

006002 

000207 




RTS 

PC 

; RE TURN 

1595 









1596 

006004 

004767 

177530 


IS: 

JSR 

pc.ldmmo 

.•GO MAKE INITIAL SET UP 

1597 

006010 

000302 




SUAB 

R2 


1598 

006012 

006002 




ROR 

R2 


1599 

006014 

010257 

172544 



MOV 

R2.a*KlPAR2 


1600 

006020 

062702 

000200 



ADD 

*200. R2 


1601 

006024 

010257 

172346 



MOV 

R2.a*ICiPAR3 


1602 

006050 

012737 

077406 

172304 


MOV 

*200*256. -400*UP*RU.a*KlPDR2 ;SFT k1PDR2=RU UP 200 BLOCKS 

1605 

006056 

012757 

077406 

172306 


MOV 

*200*256. -400*UP*Rw.a*KlP0R3 ;SET kIPDR3=RW UP 200 BLOCKS 

1604 

006044 

005037 

172510 



CLR 

a*KlPDR4 


1605 

006050 

012702 

040000 



MOV 

*40000. R2 


1606 

006054 

012757 

006072 

000250 


MOV 

*MMABT2.a*MMvEC 


1607 

006062 

012757 

000001 

177572 


MOV 

*1.a*SR0 

; enable mem MGMT 

1608 

0060^0 

000207 



2S: 

RTS 

PC 


1609 









'610 





:R0UT1NE TO SERVICE 8 XOR 1 5 ABORTS 

l6l 1 

006072 

000240 



MMA0T2: 

NOP 




5 


ctHjAOO n/70 nin tsi hactii 
CEM jAD.PII 09-FEB-79 11:18 


50A(10S2) 09-fEB-79 12:56 PArjE 56 

MEM BGHT ROUTINES 


1612 

1615 

16K 

1615 

1616 
16 ’ 7 
1618 

1619 

1620 
1621 
1622 

1625 
162 A 
162*' 

1626 

1627 

1628 
1629 

1650 

1651 

1652 

1655 
165A 
’655 

1656 

1657 

1658 

1659 

1640 

1641 

1642 
1645 
164 <. 

1645 

1646 

1647 

1648 

1649 

1650 

1651 

1652 
1655 
1o54 

1655 

1656 

1657 

1658 

1659 

1660 
’661 
1662 
1665 

1664 

1665 

1666 
1667 


006074 

U06100 

006106 

006114 

006120 

006126 


012702 

040000 


MOV 

•40000. R2 

062757 

000400 

172544 

ADD 

l400.afKlPAR2 

062757 

000400 

172546 

ADD 

l400.a«KlPAR5 

015716 

177576 


MOV 

aiSR2.(SP) 

012757 

000001 

177572 

MOV 

•1 .aASRO 

000002 



RTI 





.sbttl 

5 XOR 9 ROUTINES 





;CAlL: 

MOV 

BANK A.-CSP) 





MOV 

BLKCNT .-CSP) 




• 

JSR 

PC. .5X9 

006150 

016602 

000004 

.5X9; 

MOV 

4(SP) .R2 

006154 

004767 

177620 


JSR 

PC . s T hm2 

006140 

005000 



CLR 

RO 

006142 

010005 



MOV 

R0.R3 

006144 

005105 



COM 

R3 

006146 

005767 

175350 


TST 

PARPAT 

006152 

001402 



BED 

IS 

006154 

012700 

000401 


MOV 

•401 .RO 

006160 

012704 

000020 

IS: 

MOV 

• 16. , R4 

006164 

010022 


2S: 

MOV 

R0.{R2)* 

006166 

010022 



MOV 

R0.(R2)* 

006170 

010022 



MOV 

R0.(R2)* 

006172 

010022 



MOV 

RC.(R2)* 

006174 

010022 



MOV 

R0.(R2)* 

006176 

010022 



MOV 

R0.(R2)« 

006200 

010022 



MOV 

RO, (R2)* 

006202 

010022 



MOV 

R0.CR2)* 

006204 

010522 



MOV 

R5.(R2)* 

006206 

010522 



MOV 

R5.(R2)* 

006210 

010522 



MOV 

R3,(R2)* 

006212 

010522 



MOV 

R3.(R2)* 

006214 

010522 



MOV 

R5.(R2)* 

006216 

010522 



MOV 

R5.CR2)* 

006220 

010522 



MOV 

R3. IR2)* 

006222 

010322 



MOV 

R5.(P2)* 

006224 

005304 



DEC 

R4 

006226 

001556 



BNE 

2S 

006250 

005100 



COM 

RO 

006252 

005105 



COM 

R5 

006234 

005767 

175262 


TST 

PARPAT 

006240 

001402 



BEQ 

5S 

006242 

004767 

000014 


JSR 

PC..XOR59 

006246 

005366 

000002 

5S: 

DEC 

2'.SP) 

006252 

001542 



BNE 

1 S 

006254 

0126’6 



MOV 

(SP) ♦ , CSP) 

006256 

012616 



MOV 

( SP) ♦ , T SP' 


;SE1 RETURN TO INSTRUCTION THAT ABORTED 
.•enable MEN NGNI 


PUSH STARTING BANK « ON STACK 
PUSH 256. WORD BLOCK COUNT ON STACK 
CALL ROUTINE 


;GET STARTING BANK # 


RO (0) AND R5 (-1) IS the DATA WRITTEN 
BRANCH IF PARITY HENORY PATTERN IS 
NOT TO BE WRITTEN 


;WRITE PARITY 5X9 
;EACH LOOP WRITES 


PATTERN 
256. WORDS 


.•BRANCH IF PARITY MEMORY PATTERN IS 
.•NOT TO BE WRITTEN 

;G0 GET CONSTANTS 

;OECREMENT 256. WORD BLOCK COUNT 

.•ADJUST STACK 


SEO 0055 


K 

tEBjAOO 11/70 TSI HACTlI 50A(10S2) 09-ftB-79 12;Sfe PAGE M 


'■fBjAD.Pll 09-fEB-79 11:18 

1668 006260 000207 

1669 

1670 

1671 

1672 006262 032702 000020 

1673 006266 00K04 

167A 006270 0527C2 002000 
1673 006274. 00UO4. 

1676 006276 0004,07 

1677 006300 032702 002000 

1678 006504, 0014.04, 

1679 006306 003767 1 724.4.2 

1680 006 512 1 00004. 

1681 006514, 1004,10 

1682 006516 003767 172A52 

1685 006522 100003 

168A 006324. 012700 177777 

1683 006350 012703 0004.01 

1686 006 5 5A 000207 

168 7 006 5 36 012700 0004.01 

1688 00634.2 ni2705 1 77777 

1689 00654,6 000207 

1690 

1691 

1692 

1695 
1694, 

1693 

1696 006530 0002A0 

1697 006532 00A767 001 104. 

1698 

1699 

1700 006 556 016604, 000002 

1701 006362 016602 000004. 

1702 006566 00A767 177566 

1703 006372 003000 

1704. 00 6 5 74, 00 5 7 6 7 1 7 2 554, 

1705 O06AOO OOOOl 

1706 0064,02 0 0 5100 

170 7 0 064,04, 0 1 2 70 5 0 0 004.0 

1708 

1709 0064.10 005767 173106 

1710 006A1,. 0014,02 

1711 

1 712 0064.16 004.767 1 7764.0 

1 715 0064,22 

1714, 006A22 012205 

1715 0064.24. 020005 

1716 0064.26 0014,05 
1 717 0064.50 0050A6 

1 718 0064.52 004.767 1 7254.6 

1719 

1720 

1721 0064.56 012205 

1 72 2 0 064.A0 020003 
1 725 0064.4.2 0014,05 


5 XOR 9 ROUTINES 

RTS 

PC 

.‘ROUTINE TO SET 

CONSTANTS 

;PARITt, 


.X0P39: BIT 

#20. R2 

BECi 

.51S0 

.5IS1: BIT 

#2000. R2 

BEO 

.5NOT9 

BR 

.5IS9 

.3IS0: BIT 

#2000. R2 

BEO 

.5IS9 


.5N0T9: 1ST IC0UN1 

BPL LDCOHP 

BHl lDNORB 

.3IS9: 1S1 ICOUNT 

BPL LDNORB 

lDCOMP: MOV <»-1,R0 

MOV #4.01, R3 

RTS PC 

LDNORM: MOV #4,01. RO 

MOV f-1.R5 

RTS PC 

;ROUTINE TO CHECK 3 XOR 9 WO 
;CALL: MOV BANIt#,“(SP) 

; MOV BLKCNT.-tSP) 

; JSR PC... 5X9 

..3X9: NOP 

JSR PC.CXSWR 

;CHECX WORST CASE PATTERN 


IS: 

MOV 

2(SP).R4. 


MOV 

A(SP).R2 


JSR 

PC.STMM2 


CLR 

RO 


TSI 

ICOUNT 


BPL 

.♦4, 

• 

COM 

RO 

21: 

MOV 

#32. .R5 

5S: 

TST 

PARPAT 


BEQ 

501 

50S: 

JSR 

PC.. XOR 59 


MOV 

(R2)».R5 


CMP 

R0.R5 


BEO 

.♦10 


CLR 

-CSPj 


JSR 

PC. ERROR 


MOV 

CR2)*.R5 


CMP 

R0.R5 


BEO 

.♦10 


5 


SEO 0056 


WRITING/CHECKING 5 XOR PATTERN WITh 

:CHECK BIT 5 
;BRANCH IF BIT 5 - C 
.CHECK BIT 9 
;BRANCH IF BIT 9 -0 

;CHECK BIT 9 
‘BRANCH IF 0 

•CHECK IF NORMAL OR COMPLEMENT DATA 
;G0 LOAD COMPLEMENT CONSTANTS 
:G0 LOAD NORMAL CONSTANTS 
.‘CHECK IF normal OR COMPLEMENT DATA 
.‘GO LOAD NORMAL CONSTANTS 
;SET complement CONSTANTS 

‘ RE TURN 

■load normal CONSTANTS 


CASE NOISE PATTERN 
.‘PUSH STARTING BANK # ONTO STACK 
;AND 256. WORD BlOACK COUNT 
.‘CALL ROUTINE 


;G0 CHECK SWITCH REGISTER 


;GET 256. BLOCK WORD COUNT 
;GET FIRST BANK # 

.‘60 SET UP MEM M6MT 
:SET CHECK WORD 

;IF ICOUNT IS NEG AM CHECKING COMP- 
.‘LEMENTED PATTERN 
.‘SO COMPLEMENT CHECK WORD 
;SET 256. WORD COUNTER 

.‘BRANCH IF PARITY MEMORY PATTERN IS 
;NOT TO BE CHECKED 

;G0 GET CONSTANT 

.‘GET TEST DATA 
: COMPARE with CHECK WORD 

;PUSH FAKE STATUS ON THE STACK 
;ERR0R: mem data (R5) not - TEST DA’A 
.‘(RO). ADDRESS=(R2)-2 


;GET TEST DATA 
.‘COMPARE with check WORD 


CtWjADO n/70 mn TSI 
(EHjAO.Pn 09-FEB-79 


1724 

006444 

005046 

1725 

006446 

004767 

1726 



1727 



1728 

006452 

012203 

1729 

006454 

020005 

1750 

006456 

0014C5 

1751 

006460 

005046 

1752 

006462 

004767 

1755 



1754 



1755 

006466 

012205 

1756 

006470 

020005 

1757 

006472 

001405 

1758 

006474 

005046 

1759 

006476 

004767 

1740 



1741 



1742 

006502 

012203 

1745 

006504 

020003 

1744 

006506 

001405 

1745 

006510 

005046 

1746 

006512 

004767 

1747 



1748 



1749 

006516 

012203 

1750 

006520 

020003 

1751 

006522 

001403 

1752 

006524 

005046 

1755 

006526 

004767 

1754 



1755 



I75t> 

006552 

012205 

1757 

006534 

020003 

1758 

006536 

001403 

1759 

006540 

005046 

1760 

006542 

004767 

1 761 



1762 



1765 

006546 

012203 

1764 

006550 

020005 

1765 

006552 

001405 

1766 

006554 

005046 

1767 

006556 

004767 

1768 



1769 



1770 



1771 

006562 

005100 

1772 

006564 

005305 

1775 

006566 

001310 

1774 

006570 

005100 

1775 

006572 

005304 

1776 

006574 

001305 

1777 



1778 

006576 

052737 

1779 

006604 

001264 


HACTlI 50A(1052) 09 

11:18 5 <01 

172^52 

172516 

172502 

172466 

172452 

1724 56 

172422 


040000 177570 


FEB- 79 12:56 PAGE 58 

9 ROUTINES 


CLR 

-(SP) 

JSR 

PC. ERROR 

MOV 

(R2)*.R5 

CMP 

R0.R5 

BEQ 

.♦10 

CLR 

-(SP) 

JSR 

PC. ERROR 

MOV 

(R2)^,R5 

CMP 

R0.R5 

BEQ 

.♦10 

ClR 

-(SP) 

JSR 

PC. ERROR 

MOV 

(R2)^.R3 

CMP 

R0.R5 

BEQ 

.♦10 

CLR 

-(SP) 

JSR 

PC, ERROR 

MOV 

(R2)* -R5 

CMP 

R0.R5 

BEQ 

.♦10 

CLR 

-(SP) 

JSR 

PC. ERROR 

MOV 

(R2)*.R5 

CMP 

R0.R5 

BEQ 

.♦10 

CLR 

-(SP) 

JSR 

PC. ERROR 

MOV 

(R2)^.R3 

CMP 

R0,R5 

BEQ 

.♦10 

CLR 

-(SP) 

JSR 

PC. ERROR 


COM 

RO 

DEC 

R5 

BNE 

5S 

COM 

RO 

DEC 

R4 

BNE 

21 

BIT 

# 40000 . aiswR 

BNE 

11 


SEO 0057 

jPUSH FAKE STATUS ON ThE STACK 
;ERROR! MEN DATA (R5) NOT -- TES^ DATA 
;(R0). A00RESS-(R2)-2 

;&ET TEST DATA 
:C0F1PARE with check WORD 

;PUSH FAKE STATUS ON THE STACK 
;ERR0R: F^EN data (R5) not - TEST DATA 
;(R0), ADDRESS- (R2)-2 

;GET TEST DATA 
; COMPARE WITH CHECK WORD 

;PUSH FAKE STATUS ON THE STACK 
.-ERROR! F^EF5 DATA (R5) NOT - TEST DATA 
;(R0), ADDR£SS=(R2)-2 

.-GET TEST DATA 
:C0F1PARE WITH CHECK WORD 

.•PUSH FAKE STATUS ON THE STACK 
;ERROR! HEFT DATA (R5) NOT = TEST DATA 
;IR0). ADDRESS-(R2)-2 

.-GET TEST DATA 
.-COMPARE with CHECK WORD 

.-PUSH FAKE STATUS ON THE STACK 
;ERROR! MEM DATA (R5} NOT TEST DATA 
;(R0). A0DRESS=(R2)-2 

;&ET TEST DATA 
.-COMPARE with check WORD 

;PUSH FAKE STATUS ON THE STACK 
;ERR0R: mem data CR5) NOT * TEST DATA 
;(R0). ADDRESS=(R2)-2 

.-GET TEST DATA 
; COMPARE WITH CHECK WORD 

.-PUSH FAKE STATUS ON THE STACK 
;ERR0R; mem data CR5) NOT TEST DATA 
;{R0). ADDRESS=(R2)-2 


; COMPLEMENT CHECK WORD 
;DECREMENT 256. WORD COUNTER 

: complement CHECK WORD 
;DECREMENT BLOCK COUNTER 


;L00P ON TEST? 

.-BRANCH IF lOOP ON TEST DESIRED 


ifO 00?8 


n 5 


CEWJAOO 11/70 

ISl 

WACTlI 

50A(1052) 

09-FEB-79 

12:56 PAGE 39 


CEHJAD. 

Pll 09-FEB-79 

11:18 


3 XOR 

9 ROUllNES 


1780 

006606 

016667 

000002 

172152 

40i: 

HOV 

2(SP),C0UN1 

GET » Of 256. WORD BLOCKS TO CnECk 

1 781 

006614 

016602 

000004 



80V 

4(SP),R2 

GET starting BANK « 

1783 

006620 

004767 

177154 



JSR 

PC.S1NN2 

GO SET UP NEN NGNl IF REQU15D 

1785 









178^ 





;CHECK 

U0RS1 

CASE Bll CONPlENENT 

PATTERN 

1785 

006624 

005000 




clr 

RO 


1786 

006626 

005767 

172122 



ISl 

1 COUNI 

CHECK IF CONPlENENI PATERN 

1787 

006652 

100001 




BPL 

.♦4 


1 788 

006634 

005100 




CON 

RO 

conplenent check word 

1789 

006636 

012704 

000040 


4S: 

NOV 

A32. .R4 

SET 256. WORD COUNTER 

1790 

006642 

012705 

000010 


5S: 

NOV 

»8. .R5 

SET 8 WORD COUNTER 

1791 

006646 

005767 

174650 


6t: 

ISl 

PARPAT 

BRANCH IF PARITY HENORt PATTERN IS 

1792 

006652 

001402 




BEO 

60$ 

NOT TO BE checked 

1795 

006654 

004767 

1 77402 



JSR 

PC..XOR59 


1 794 

006660 

012203 



601: 

NOV 

(R2)*.R3 

GET DATA 

1795 

006662 

020005 




CNP 

R0,R5 ;CHECK DATA 

1 796 

006664 

001405 




BEO 

.♦10 


1797 

006666 

005046 




CLR 

-(SP) 


1798 

006670 

004767 

1 72310 



JSR 

PC. ERROR 


1799 

006674 

005100 




CON 

RO 

CONPlENENT CHECK WORD 

1800 

006676 

005142 




CON 

-(R2) 

conplenent test data 

1801 

006700 

012203 




NOV 

(R25* .R3 

GET DATA 

1802 

006702 

020005 




CNP 

R0.R3 

CHECK 

1803 

006704 

001405 




BEQ 

.♦10 


1804 

006706 

005046 




CLR 

-(SP) 

•PUSH FAKE STATUS ON THE STACK 

1805 

006710 

004767 

172270 



JSR 

PC. ERROR 


1806 

006714 

005100 




CON 

RO 

conplenent CHECK WORD 

1807 

006716 

005162 

177776 



CON 

-2(R2) 

RESTORE DATA 

1808 

006722 

005305 




DEC 

R5 

DECRENENT 4 WORD COUNTER 

1809 

006724 

001330 




BNE 

6$ 


1810 

006726 

005100 




CON 

RO 

; conplenent CHECK WORD 

ISll 

006730 

005304 




DEC 

R4 

; DECRENENT 256. WORD COUNTER 

1812 

006752 

001343 




BNE 

5$ 


1813 

006754 

005100 




CON 

RO 

; conplenent CHECK WORD 

1814 

006736 

005567 

172024 



DEC 

COUNT 

;DECRENENT BlGCK COUNTER 

1815 

1 fi 1 

006742 

001355 




BNE 

4$ 


1 O 1 1 

1817 

006744 

016602 

000004 



NOV 

4(SP),R2 

;GET BANK « 

1818 

006750 

004767 

177004 



JSR 

PC.STNN2 


1819 

006754 

016603 

000002 



NOV 

2(SP),R3 

GET BLOCK COUNT 

1820 

006760 

032737 

040000 

1775/0 


BIT 

lf40000.afSUR 

LOOP ON TEST 

1821 

006766 

001507 




BNE 

40$ 

BRANCH IF LOOP ON TEST 

1822 

006770 

006367 

171760 



ASL 

I COUNT 


1825 

006774 

102402 




3VS 

7$ 


’824 

006776 

000167 

177354 



JNP 

1$ 


1825 

007002 

012705 

000020 


71: 

NOV 

R16..R5 

CONPLENENT PATTERN 

1826 

007006 

011200 



10$: 

NOV 

(R2).R0 

GET 1ST DATA WORD 

1827 

007010 

016204 

000020 



NOV 

20(R2),R4 

GET 9TH data word 

1828 

007014 

110422 




NOVB 

R4,(R2)^ 

SWAP WORDS 1-8 

1829 

007016 

110422 




NOVB 

R4.(R2)^ 

WITH 9-16 

1830 

007020 

110422 




NOVB 

R4,(R2)^ 


1831 

007022 

110422 




NOVB 

R4,(R2)^ 


1852 

007024 

110422 




NOVB 

R4,(R2)^ 


1853 

007026 

110422 




NOVB 

R4.(R2)^ 


1854 

007050 

110422 




NOVB 

R4,(R2)^ 


1835 

007052 

110422 




NOVB 

R4.(R2)^ 



\ 


1 






N 5 



^EMJADO n/70 

8EH ISI 

HACtI 1 

50A(1052> 

09-ftB-79 12 

:56 PAGE 40 



^MjAD.PII 09-fEB-79 

11:18 


XOR 9 R0U11NES 


SEO 0059 

1B56 

007054 

110422 



novB 

R4.(R2)» 



1857 

007056 

110422 



novB 

R4,(R2)» 



1858 

007040 

110422 



novB 

R4,(R2)« 



1859 

007042 

110422 



novB 

R4.(R2)» 



18A0 

007044 

110422 



novB 

R4,(R2)» 



18A1 

007046 

110422 



no^B 

R4,(R2)» 



18A2 

007050 

110422 



nuvB 

R4,(R2)» 



18<.5 

007052 

110422 



novB 

R4.(R2;» 



18AA 

007054 

110022 



novB 

R0.(R2)» .-and vice versa 



18tS 

007056 

110022 



novB 

R0,(R2)» 



18<.6 

007060 

110022 



novB 

R0.(R2)» 



18A7 

007062 

110022 



novB 

R0.(R2)^ 



1848 

007064 

110022 



NOVB 

R0.(R2)* 



1849 

007066 

110022 



novB 

R0,(R2)» 



1850 

007070 

110022 



novB 

R0.(R2)^ 



1851 

007072 

110022 



novB 

R0.(R2)* 



1852 

007074 

110022 



novB 

R0.(R2)* 



1853 

007076 

110022 



novB 

R0.(R2)» 



1854 

007100 

110022 



MOVB 

R0,(R2)^ 



1855 

007102 

110022 



novB 

R0.CR2)* 



1856 

007104 

110022 



novB 

R0.(R2)» 



1857 

007106 

1 10022 



MOVB 

R0.(R2)* 



1858 

0071 10 

110022 



MOVB 

R0.(R2)» 



1859 

007112 

110022 



novB 

R0.(R2)^ 



I860 

007114 

005505 



DEC 

R5 



1861 

007116 

001553 



BNE 

10S 


t 

1862 

007120 

005305 



DEC 

R5 


V 

1865 

007122 

001527 



BNE 

7$ 



1864 









1865 

007124 

005767 

171624 


1ST 

ICOUNT 



1866 

007150 

001402 



BEQ 

IIS 



1867 

007132 

000167 

177220 


JHP 

IS 



1868 

007136 

012616 



IS: MOV 

(SP)*.(SP) 



1869 

007140 

012616 



MOV 

(SP)*.(SP) 



1870 

007142 

000207 



RTS 

PC 



1871 

1872 





ROUTINE TO WRITE 8 XOR 1 3 WORST CASE NOISE TEST 

PATTERN 


1875 





.sbttl 

8 XOR 15 ROUTINES 



1874 





CALL: MOV 

BANK »,-(SP} 



1875 





MOV 

#4KBANKS,-CSP) 



1876 





JSR 

PC, .8X13 



1877 

1878 

007144 

012616 



8X13: MOV 

(SP)»,(SP) .-ADJUST STACK 



1879 

007146 

012616 



MOV 

(SP)*.ISP) 



1880 

007150 

000207 



RTS 

PC 



1881 

1882 





•ROUTINE TO CHECK 8 XOR 13 WORST CASE NOISE ^EST 

PATTERN 


1885 





call: 




1884 





MOV 

BANK#. -ISP) ;PUSH FIRST BANK 

# ON THE STACK 


1885 





MOV 

#BANKS,-CSP) .-PUSH # OF 4K BANKS TO CHECK ON THE STACK 


1886 





JSR 

PC, ..8X13 ;CALL ROUTINE 



1887 









1888 

007152 

012616 



..8X15: MOV 

(SP)*.CSP) 



1889 

007154 

012616 



MOV 

(SP)* . ‘SP) 



1890 

007156 

000207 



RTS 

PC ;RE1URN 



1891 










^fO 0040 


f 

1fJ74 

IS^vS 

\y.^> 

M98 

1899 

1900 
190! 
190^ 
1905 

1904 

1905 

1906 

1907 

1908 

1909 

1910 

1911 
191^ 
1915 

1914 

1915 

1916 

1917 

1918 

1919 

1920 

1921 

1922 
1925 

1924 

1925 

1926 

1927 
192». 
1929 

1950 

1951 

1952 
1955 

1954 

1955 

1956 
»957 

1958 

1959 

1940 

1941 

1942 
1945 

1944 

1945 

1946 
'94 7 


• 4 

"/f'.mn TSl 50»«’052* 09-118-79 12:56 PA(,J 4l 

9-»fB-'9 11:18 PCU119G 1*5 t O’S ROUllKfS 

.5B1U ROIAMMO rs t O'S ROUTINES 
RJUUNt T3 CHECK ROIAIINO *0* BH THROUGH fUD Of 1'S 





(Ail : 

NOV 

BANK# ,-(SP: 

SET STARTING BANK # 





MGV 

BikCNT.-(SP) 

SET 256. «ORD Bi'jCK COUNT 





JSR 

PC ..ROTO 

call rouitne 

007160 

004767 

000276 

•ROTO. 

jSR 

pc.CKsyR 

GO CHECK switches 

007164 

016604 

00000? 


NOV 

2(SP) .R4 

GET 256. WORD BLOCK COUNT 

007170 

016602 

000004 


NOV 

4(SP).R2 

GET FIRST BANK # f 

007174 

004 767 

1 76560 


JSR 

PC .STNN2 

GO SET UP NEN NGNI (IF AvAIi ) ' 

007200 

012700 

177777 


NOV 

f-1 .RO 

SET CHECK WORD 

007204 

012705 

000400 It: 

NOV 

#256. .RS 

SET 256. WORD COUNT 

007210 

000241 

21: 

CLC 

:ClEAR carry BIT IN PSW 

007212 

004767 

000124 


JSR 

PC .ROTATE 


007216 

016205 

177776 


NOV 

-2(R2).R5 

GET RESULT 

007222 

105402 



BCS 

51 

BRANCH IF C BIT WAS SET 

007224 

020005 



CNP 

R0.R5 

CHECK RESULT 

007226 

001405 



BEQ 

41 


007250 

005046 

51; 

clr 

-(SP) 

ERROR! COULD NOT ROTATE 'O' BIT 

007252 

004767 

1 r 7i,b 


JSR 

PC. ERROR 

THROUGH ADDRESS IN R2 

007256 

005505 

41; 

DEC 

R5 

DECRENENT 256. WORD COUNT 

007240 

001565 



BNE 

21 

LOOP until DONE 

007242 

005504 



DEC 

R4 

DECRENENT 256. WORD BLOCK COUNT 

007244 

001557 



BNE 

11 

LOOP UNTIL DONE 

007246 

012616 



NOV 

(SP)* .iSP) 

POP CONSTANTS OFF THE STACK 

007250 

012616 



NOV 

(SP)*.(SP) 


007252 

000207 



RTS 

PC 

RETURN TO CALlER 




ROuTlNi 

TO 

CHECK rotating t bit Through a field of 0*s 




call: 

NOV 

BANK# ,-(SP> 

SET STARTING BANK # 





NOV 

BLKCNT .-(SP) 

SET # OF 256. WORD BLOCKS TO CHECK 





JSR 

PC..R0T1 

CALL ROUTINE 

007254 

004 76 7 

000202 

.ROT1 : 

JSR 

PC .CKSWR 

GO CHECK SWITCHES 

007260 

016604 

000002 


NOV 

2(SP).R4 

GET # OF 256. WORD BLOCKS TO ChFCk 

007264 

016602 

000004 


NOV 

4CSP) .R2 

GET STARTING BANK # 

007270 

004767 

1 76464 


JSR 

PC.STNN2 

GO SET UP NEN NGNT (IF AVAR ' 

007274 

005000 



CLR 

RO 

SET CHECK WORD 

007276 

012705 

000400 

1: 

NOv 

#256. .RS 

iSET 256. WORD COUNTER 

007502 

000261 

21; 

SEC 


:SET 'C BIT IN PSW 

007504 

004767 

000032 


JSR 

PC. ROTATE 

;G0 ROTATE '1* BIT 

007510 

016205 

177776 


NOV 

-2(R2).R5 

;GET RESULT 

007514 

105002 



BCC 

31 

.BRANCH IF 'C IS clear 

007516 

020003 



CNP 

R0.R3 

; CHECK result 

007520 

001401 



BEQ 

.*4 


007522 

104400 

51: 

hlt 


;FRROR! COULD NOT ROTATE '1* BP 







; Through address in r2 

007524 

005505 



DEC 

R5 

; DECRENENT 256. WORD COUNT 

007526 

001565 



BNE 

21 


007550 

005504 



DEC 

R4 

.DECRENENT 256. WORD BlOCk COJNI 

007552 

001561 



BNE 

11 


007554 

012616 



NOV 

(SP)*,(SP) 

:ADJUST RETURN ADDRESS 

007556 

012616 



NOV 

(SP)*.(SP) 


007540 

000207 



RTS 

PC 

;RETURN TO CAllER 




sro 0041 


c <. 


'IM.A' 

^ V 7C 

"EM TSI MACYll 

50Atl052) 09-FtB-79 

12:56 PAGE 4? 


f EMjAO. 

PI’ 09-fE8-79 11;18 

rotating i*s 

t 0*S ROUlINES 


1948 






1949 



.•ROUTINE TO ROTATE ’C* BH THROUGH A MEMORY LOCATION. 

1950 

007542 

106112 

ROTATE: ROLB 

(R2) 

(R2)=1 77776 OR 000001 

1951 

007544 

106112 

ROLB 

tR2) 

(R2)=177775 OR 000002 

1952 

007546 

106112 

ROLB 

(R?) 

fR2)=177775 OR 000004 

1955 

007550 

106112 

ROLB 

(R2) 

(R2)=177767 or 000010 

1954 

007552 

106112 

ROLB 

(R2) 

(R2)--l 77757 OR 000020 

1955 

007554 

106112 

ROLB 

(R2) 

(R2)=177757 OR 000040 

1956 

007556 

106112 

ROLB 

(R2) 

(R2)M77677 OR 000100 

1957 

007560 

106112 

ROLB 

(R2) 

(R2)^177777 OR 000000 

1958 

007562 

106122 

ROLB 

(R2)* 

(R2)=177577 OR 000200 

1959 

007564 

106112 

rolb 

(R2) 

fR2)=177577 OR 000400 

I960 

007566 

106112 

ROLB 

(R2) 

(R?)-176777 OR 001000 

1961 

007570 

106112 

ROLB 

(R2) 

(R2)--T75777 OR 002000 

1962 

007572 

106112 

rolb 

(R2) 

(R2)^P3777 OR 004000 

1965 

007574 

106112 

rolb 

(R2) 

(R2)=167777 OR 010000 

1964 

007576 

106112 

ROLB 

(R2) 

(R2)=157777 OR 020000 

1965 

007400 

106112 

ROLB 

(R2) 

(R2)=157777 OR 040000 

1966 

007402 

106112 

ROLB 

(R2) 

(R2)=077777 OR 100000 

1967 

007404 

106122 

ROLB 

(R2)» 

(R2)=177777 OR 000000 

1968 

007406 

000207 

RTS 

PC 

RETURN 

1969 






1970 



;ROUTINE TO WRITE ONE WORD PATTERN INTO MEMORY 

1971 



;CALL: MOV 

BANKA. -(SP) 

;PUSH STARTING BANK 0 

1972 



; MOV 

BLKCNT ,-(SP) 

.•AND 128. WORD BLOCK C 

1975 



JSR 

PC. WRTPAT 

.-CALL ROUTINE 

1974 






1975 

00^410 

016604 000002 

WRTPAT: MOV 

2(SP) .R4 

;GET BLOCK COUNT 

1976 

007414 

016602 000004 

MOV 

4(SP) .R2 

;GET STARTING BANK 0 

1977 

007420 

004767 176554 

JSR 

PC.STMM2 

;G0 SET UP MEM MGMT 

1978 

007424 

012700 

MOV 

(PC)» .RO 

.-GET USER CONSTANT 

1979 

007426 

000000 

.CONST; 0 



1980 

007450 

012705 000100 

It: MOV 

A64..R5 

.•SET 256. WORD COUNTER 

1981 

0074 5*. 

010022 

2t: MOV 

R0.(R2)+ 

;WRITE 256. WORDS 

1982 

0074 56 

010022 

MOV 

R0.(R2)* 


1985 

007440 

010022 

MOV 

R0,(R2)+ 



19 ^/. 

1985 

1986 


007442 

007444 

007446 


01002? 

005505 

001572 


MOV 

DEC 

BNE 


R0.(R2)+ 

R5 

2S 


1987 

007450 

005504 




DEC 

R4 

1988 

007452 

001566 




BNE 

It 

1989 

007454 

012616 




MOV 

(SP)*.(SP) 

1990 

007456 

012616 




MOV 

(SP)*,(SP) 

1991 

007460 

000207 




RTS 

PC 

’992 








1995 








1994 





;ROUTINE TO 

CHECK the SWITCH 

’995 





.•CHECK 

SWITCH 9: IF SET. LOAD 

1996 





;IE NOT 

SET. 

load pass count 

1997 

007462 

042767 

017777 

171270 

CKSWR: 

BIC 

#17777. lODISP 

1998 

0074 70 

052757 

000400 

177570 


BIT 

«BIT8.a#SWR 

1999 

007476 

001402 




6E0 

lot 

2000 

007500 

004 767 

000464 



JSR 

PC,REl24K 

2001 

007504 

052757 

001000 

177570 

lot: 

BIT 

#BIT9.S#SUR 

2002 

007512 

001404 




BEO 

It 

.'00 5 

007514 

056767 

171256 

171236 


BIS 

ercnt.ldoisp 


DECREMENT 256. WORD COUNTr>; 

LOOP until 256. UOROS HAVE BEEN yRlHEN 
DECREMENT BLOCK COUNT 

.-ADJUSI stack 


REGISTER 

ERROR COUNT INTO TmE DISPLAY REGISTER; 

INTO THE display REGISTER 
SAVE RELOCATION BITS 
CHECK SWITCH 8 
BRANCH IE SET 

GO RELOCATE PROGRAM BACK TO 4k AND STOP 
SUPCH 9 SET 


;L0AD error COUNT 



'’tHjAOO 11/7C nin TSl 50An0S2) 09-FtB-79 12:^6 PAGt <,5 

CtMjAD.PII 09-fEB-79 11:18 ROTATING TS I ROUUNES 


SEO 00<.2 


D A 


200A 

007522 

000A05 




BR 

2005 

00752A 

056767 

171222 

171226 

IS: 

BIS 

2006 

007552 

016757 

17U22 

1 77570 

21: 

HOW 

2007 

0075A0 

012767 

0A0177 

171206 


HOV 

2008 

0075A6 

052737 

OOAOOO 

177570 


BIT 

2009 

00755A 

001 A02 




BE Cl 

2010 

007556 

105067 

171172 



CLRB 

2011 

007562 

000207 




RTS 

2012 







2013 





;MESSA&ES 

201A 

00756A 

005015 

0A752A 

0510A0 

RESlDR: 

.ASCIZ 

2015 

007572 

051505 

0A752A 

OA2522 



2016 

007600 

0A60A0 

0A0517 

0A250A 



2017 

007606 

051522 

051AA0 

0A052A 



2018 

00761a 

052122 

OAOAAO 

0201 2A 



2019 

007622 

035061 

006A62 

000012 



2020 

007630 

005015 

0A7105 

0A1101 

PARITY: 

.ASC17 

2021 

007656 

0A251A 

0500AC 

051101 



2022 

0076AA 

05211 1 

037551 

030AA0 



2025 

007652 

050057 

05AA75 

051505 



202A 

007660 

0A7057 

020117 

000 



2025 

007665 

015 

051A12 

0A052A 

STBANK: 

•ASCIZ 

2026 

C07672 

052122 

0A7111 

020107 



2027 

007700 

0A0502 

0A5516 

021AA0 



2028 

007706 

03A050 

037A51 

OOOOAO 



2029 

0077U 

005015 

0200A3 

0A3117 

BANKS: 

.ASCIZ 

2050 

007722 

0520A0 

020113 

0A0502 



2031 

007750 

0A5516 

020123 

0A752A 



2032 

007756 

0520A0 

051505 

02A12A 



2035 

0077AA 

02AA70 

020077 

000 


.ASCIZ 

20 5A 

007751 

015 

050012 

0521C1 

PAT: 

2055 

007756 

0A252A 

0A7122 

021AA0 



2056 

007 76A 

020077 

000 



.ASCIZ 

2057 

007767 

015 

037AI2 

000 

QUEST: 

2038 

007775 

015 

052012 

050151 

CONST: 

.ASCIZ 

2059 

010000 

020105 

0A7505 

051516 



20A0 

010006 

0A052A 

052116 

000 

PRG5M: 

.ASCIZ 

20A1 

010015 

015 

0AAA12 

0501 16 

20A2 

010020 

052125 

021AA0 

0A7AA0 



20A5 

010026 

020106 

032A62 

027066 



20AA 

01003A 

055AA0 

051117 

02010A 



20A5 

0100A2 

0A6102 

0A1517 

051515 



20A6 

010050 

0520A0 

020117 

0A252A 



20A7 

010056 

052125 

OAAAAO 

051516 



20A8 

01006A 

0A252A 

0A2101 

OA7AAO 



20A9 

010072 

000106 




.ASCIZ 

2050 

01007a 

005015 

05A52A 

0A2520 

PRGAH: 

2051 

010102 

OaOAAO 

0A210A 

0A2522 



2052 

010110 

051525 

000 

020’ 17 


.ASCIZ 

2055 

010113 

015 

052012 

RELOCH: 

205a 

010120 

0A2522 

052123 

0511 '7 



2055 

010126 

020105 

051120 

OA5517 



2056 

01015A 

0A0522 

020115 

052125 



2057 

0101A2 

051101 

02012A 

052101 



2058 

010150 

OOOOAO 





2059 

010152 

U00052 



asterisk:. ASCI 


ICNT.LDOISP ;LOAO PASS COUNT 

L001SP.a#01‘^PLAt;LOAD ThE DISPLAY REGISTER 
#OAOT77.ICOUNT ;LOAO ITERATION COUNT WORD 

«AOOO,a«SWR ; CHECK SUll 

.♦6 

I COUNT ; I COUNT --OAOCOO If Swn 1 

PC 


<1S><12>*TO RESTORE LOADERS START AT 162’<1^><12> 


<1S><12> ‘ENABLE parity? 1/0=YES/NO ‘ 


<1S><12>*STARTING bank #(8)? ‘ 


<15><12>** Of AK BANKS TO TEST(8)? ‘ 


<15><12>‘PATTERN »? ‘ 


<TS><12>‘?’ 

<T5><T2>’TYPE CONSTANT’ 


<1S><12>’INPUT # Of 256. WORD BLOCKS TO TEST INSTEAD Of 


<15><1?>'TyPE ADDRESS’ 


<15><12>’TO RESTORE PROGRAM STAR’ AT * 


F«.AO 

: •V7C 

MEM TST 

MACYll 

50A(1052) 

09-FEB-79 12 

E A 

:56 PAGE AA 

CEMjAD. 

pn 09-FEB-79 

11:18 


ROTATING rs t 

0*S ROUTINES 

^060 

C'OISA 

0A2505 

0A5115 

020101 

ENDMSG: .ASCIZ 

•CEMJA DONE .* 

2061 

0’0T62 

0A750A 

0A2516 

0000A1 



2062 





.EVEN 


2065 







2 06 A 





;R0UT1NE TO RELOCATE PROGRAM BACK 

206S 

010170 

010700 



REL2AK: MOV 

PC.RO 

2066 

010172 

0A27C0 

017777 


BIC 

#17777. RO 

2067 

010176 

010067 

OOOOOA 


MOV 

R0.1l 

2068 

010202 

00A567 

17A112 


JSR 

R5.REL0C 

2069 

010206 

000000 



IS: 0 


2070 

010210 

000000 



0 


2071 

010212 

012706 

000500 


MOV 

iSTKPTR.SP 

2072 

010216 

0A2757 

100000 

000760 

BIC 

#100000, a#LD01SP 

2075 

01022A 

015757 

000760 

177570 

MOV 

a#LDDISP.a#01SPLAY 

207a 

010252 

005057 

000 76A 


ClR 

a#RELOCF 

207S 

010236 

000005 



RESET 


2076 

0102A0 

000157 

000162 


JMP 

a#PONE 

2077 





« 


2078 

0102AA 

0050A2 



CLRPAR: CLR 

-'R2) 

2079 

0102A6 

000177 

172210 


jMP 

iPERSTRT 

2080 





• 


2081 

010252 

0050A2 



PARCLR: CLR 

-(R2) 

2082 

C1025A 

000002 



RTI 


2085 





• 


208A 

010256 




lodar. 


208S 


00000 T 



.END 



FORM BASE ADDRESS WHERE CODE 
IS RELOCATED 

PUT FROM AD'TRESS INTO SUBROUTINE CAu 
RELOCATE CODE TO 
LOWEST AK 

;SET STACK PTR 
;CLEAR RELOCATION INDICATOR 
.•LOAD display register 
;CLEAR RELOCATION FACTOR 
.•DISABLE ME- NGNT 
;RESTORE LOADERS I MAlT 

;CLR NEW OF PAR ERR 
;RESTART SElETED PROGRAM 

.•CLR MEM OF PAR ERR 
.•CONTINUE SCAN 


sfo 00 ^ 


SfO 004i. 


F 4 

CtWjADO v/ro «£« ’SI HACTll 50AM0S?) 09-rtB-79 12:S6 PAGt 46 


r£MjAD. 

pn 09-FEB-79 

11:18 


CROSS REFERENCE 

TABLE 

ADRESS 

002527 

692 

877# 

1451 



ASTERl 

0T0TS2 

1265 

2059# 




BAMKS 

007714 

2029# 





BE01M1 

005476 

1116 

1118 

1124# 

1264 


bell 

OOTS27 

711 

727# 




B1T12 - 

OTOOOO 

407# 

922 




B1T15 = 

020000 

406# 

1425 




buu -- 

040000 

405# 





Bins -- 

000100 

404# 





8116 - 

000100 

410# 

927 

1548 



BUB = 

000400 

409# 

1998 




8119 = 

001000 

408# 

671 

2001 



BPTvEC= 

000G14 

576# 





( = 

000001 

556# 





CXSUR 

007462 

1127 

1697 

1898 

1926 

1997# 

LLRPAR 

010244 

1577 

2078# 




CNTRL = 

177746 

592# 

912* 

1125* 

1254* 

1502* 

fONST 

007775 

2058# 





COUNT 

000766 

592# 

1780* 

1814* 



crlf 

000100 

475# 

706 

956 

1452 


DIGITS 

002 5S1 

658 

688 

757 

881# 

1459 

DIGTAB 

002512 

775 

870# 

1447 



DISPLA: 

177S70 

598# 

675* 

909* 

2006* 

2075* 

DONE 

004256 

1261 

1265# 




OONEO 

002656 

942 

952# 




OONE1 

002762 

961 

985# 




DONE 10 

005740 

1184 

1189# 




DONE 5 

005064 

1010 

1015# 




DONE 4 

005152 

1021 

1052# 




D0NE4A 

005222 

1055 

1048# 




D0NE4B 

005272 

1051 

1065# 




DONE 4 C 

005540 

1076 

1078 

1085# 



D0NE4D 

005452 

1085 

1114# 




DONE 6 

005556 

1151 

1140# 

1167 



DONE 7 

005564 

1142 

1148# 




DOMES 

005654 

1165 

1165 

11/0# 



DONE 9 

005702 

1171 

1178# 





000050 

579# 





END 

004212 

1255# 





ENDCT 

004256 

1 119* 

1259# 




ENDMSG 

010154 

1267 

2060# 




ERCNT 

000756 

585# 

668 

670* 

674 

907* 

ERROR 

001204 

467 

667# 

1718 

1725 

1752 

ERRPC 

001475 

686 

722# 

1452 



ERRTRP 

001126 

464 

646# 

1148 

1180 

1229 

ERRVEC= 

000004 

572# 

827. 

924. 

942. 

961 . 



1195* 

1229. 

1236* 

1519. 

1 524. 

ESTRB 

005515 

1475 

1482# 




F INISH 

004514 

1271 

1277# 




f PE VE C - 

000244 

584# 





h(RNT 

005560 

*476 

1489# 




Hi T - 

104400 

4 58# 

969 

976 

1050 

1061 

|fMT 

000752 

585# 

915* 

1 257. 

1260 

1461 

rOuNT 

000754 

584# 

1679 

1682 

1704 

1 786 

ICTi/Ff - 

000020 

5'7# 





t ;PAAO 

172540 

427# 

5 5'' 

784 

1 558. 



USFR SYMBOLS 


1S07» 


2005 

1759 

1 746 

1755 

1760 

1767 

1798 

1805 

1912 

1524 

1021« 

• 559. 

1055* 

1051* 

1085* 

1142. 

1148- 

1171* 

1180* 

1094 

1529 

1822* 

1101 

2005 

1865 

1109 

2007. 

1216 

2010. 

1299 

M70 


’9*^ 
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CROSS REFERENCE 

lABLE — 

USER SYMBOLS 



1723A2 

42BA 

785 

995 

1019* 

1225* 

1559* 

1567* 

1 575* 


»IPAR2= 172544 

429# 

786 

1201* 

1224* 

1556* 

1599* 

1615* 



HPAR5= 172546 

450# 

787 

1601* 

1614* 






i(lPAR4: 172550 

451# 

788 








K1PAR5-- 172552 

4 52# 

789 








KiPARfc- 172554 

455# 

790 








K1PAR7S 172556 

454# 

548 

791 

1560* 






kIP0R0= 172500 

418# 

550 

1199* 

1 564* 

1555* 





kIPOR1= 172502 

419# 

1554* 








kIPOR2=^ 172504 

420# 

1200* 

1555* 

1602* 






i(IPDR5= 172506 

421# 

1605* 








ICIP0R4S 172510 

422# 

1 604 • 








niP0R5= 172512 

425# 









•[IP0R6= 172514 

4c4# 









KIPOR7: 172516 

425# 

555 

1 557* 







KP = 000000 

565# 









LCRMI 005544 

1475 

1487# 








lOCWP 006524 

1680 

1684# 





1997* 

2005* 

2005* 

L DO ISP 000760 

586# 

675* 

674* 

675 

908* 

909 

lOWW 005540 

944 

964 

1057 

1055 

1085 

1198 

1565 

1545# 

1596 

lONORP 006556 

1681 

1685 

1687# 







lOOAR 010256 

856 

850 

2084# 







LOOFlO C02110 

821# 

825 

841* 

845 

859* 





LSI 002522 

876# 

955 








ISILOC 002244 

840* 

856# 








LSTRB 005550 

1474 

1485# 








WAINTR= 177750 

1527# 

1551* 








MARGIN 005512 

1152 

1529# 








HARHSG 005575 

U68 

1492# 








MARIBL 005266 

1465 

1466 

1471# 







MtMtRR- 177744 

1410# 

1421 

1424* 







MEHmI = 177742 

1409# 

1425 








MEPlO = 1 77740 

1408# 

1422 



1565 

1566# 




MMAB10 005662 

945 

loro 

1058 

1086 




MMAB11 005714 

1005 

1070 

1574# 







MMABT2 006072 

1606 

1611# 




926* 

956* 

991 

1017 

HMAVA 000762 

525 

546 

587# 

742 

921* 

1561 

1514 

1546 

1588 




1 565* 

1606* 

MMvEC - 000250 

585# 

945* 

1005* 

1020* 

1038* 

1070* 

1086* 

MRGN1B 005552 

1462 

1551 

1 555# 







N -- 000010 

559# 









NOFIND 004775 

1386 

1401# 

1480# 







normal 005504 

1471 

1477 


1455 

1457 




02A 002014 

700 

705 

796# 

1554 




PARAVA 005510 

559 

1162 

1504* 

1508* 

1520# 





PARClR 010252 

1571 

2081# 

1429 







PARERR 004752 

1354 

1598# 







PARI It 007650 

2020# 



1650 

1660 

1709 

1791 



FARPA1 005522 

1129# 

1164 

1166* 



PARREG 001551 

728# 

1455 








PARTAB 001774 

752 

784# 



1516* 

1518* 




PARvEC* 000114 

1 558* 

1497# 

1511* 

1515* 




PASSMG 002565 

884# 









PASSNM 002570 

885# 









PA1 007751 

2054# 


91 7 







Pr-WN 000502 

525# 

565 








^006 2072 » 207 ^ 
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CROSS RET 

ERENCE 

TABLE 

PffL& 

004 S 72 

695 

911» 

1556# 

1 568* 

1 575* 

penelg 

004575 

695 

1 557# 

1584* 

2079 


P£RSTR 

002462 

914« 

1416 

1469 


PfSiK 

000564 

559# 

545 


917* 

918* 

PfvEC - 

000024 

578# 

540* 

565* 

PIRQ - 

177772 

590# 





P1RV£C= 

000240 

585# 





PKB = 

000000 

566# 





Place 

002574 

887# 

1210 




PONE 

000162 

481# 

2076 




PRGSH 

010015 

2041# 





FRG4H 

010074 

2050# 





PRTT4 r 

000200 

562# 





PRTT7 r 

000540 

561# 

468 




PSH = 

010000 

567# 





PSW = 

177776 

588# 

600 




PTWO 

000200 

484 

486# 




PUN = 

050000 

568# 





PUP 

000576 

540 

544# 




PWRFAI 

000730 

571 

575# 




QUEST 

007767 

2057# 





RANTST 

003742 

1194# 





RECDAT 

C01514 

705 

725# 




REG 

004000 

569# 





relfl 

000110 

4 78# 


2068 



RElOC 

004320 

1282# 

1527 

755 

780 

RELOCf 

000764 

591# 

599 

754 

RELOCN 

010113 

1331 

2053# 




RELOCP 

004422 

1518# 


2065# 



REl24K 

010170 

1553 

2000 



resldr 

007564 

906 

2014# 




RESVEC= 

000010 

575# 

1954 

1950# 



ROTATE 

007342 

1906 



POTO 

004114 

1252# 





ROT1 

004154 

1245# 



1554 

1557 

RW 

000006 

442# 

1200 

1555 

SAvPf ? 

000112 

479# 

154 7 

1391# 



SAvRO 

004736 

1546* 



SAVRI 

004740 

1392# 





5AVR2 

004742 

1 593# 





SAVR5 

004744 

1594# 





SAVR4 

004 74o 

1595# 





SAVRS 

004750 

1596# 





SCOPE = 

104000 

4 59# 





SIR 

177774 

389# 





S« 

040000 

364# 


1459 



SPACE 1 

002561 

885# 

1457 

744 

925' 

SRO 

177572 

415# 

527 

558* 

SRI 

177574 

414# 



1568 

1577 

SR2 

177576 

415# 

528 

557* 

SR 5 

172516 

416# 

529 

556* 

929* 

950 

START 

002576 

487 

902# 

915 

1277 


START1 

002440 

902 

910# 


ST BANK 

007665 

2025# 



952 

985 

STiPTR- 

000500 

<.01# 

905 

9’0 



2071 
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USfR STMBOLS S£0 0046 

1580 1415 I4l7t 


781 916* 1509 1454 2074* 


1602 1605 


1561* 

1569* 

1570* 

1578* 

1581* 

1607* 1616* 


1615 







953* 

954 

1550* 

1552* 




1124 

1 140 

1155 

1170 

1178 

1228 '2^6 
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CROSS REFERENCE 

table — 

SI MM2 

00S760 

1 )86A 

1626 

1702 

1782 

1818 

SWR 

177S70 

5970 

646 

671 

676 

680 


1778 

1820 

1998 

2001 

2008 

1 

000020 

560A 





IBIIVE- 

000014 

57uM 





UB 

177S62 

594A 





US 

177S60 

1950 

525 

564* 



UVEC = 

000060 

58U 





1PB = 

177S66 

5960 





IPS 

177S6^. 

5950 

1268 




1PVEC = 

000064 

5620 





1RAPVE= 

000054 

5600 

466 




1RAP4 

001460 

656 

719# 




1RTVEC= 

000014 

5750 


659# 



TYPII 

001 no 

628 

656 



ubreak= 

177770 

591A 





UM 

140C00 

5650 




1557 

UP 

000000 

445# 

1200 

1555 

1554 

V - 

000002 

5570 

1582 


1245 

1249 

UDS.2S 

003602 

1152A 

1234 

1238 

WRTPAT 

007410 

1235 

1246 

1975# 



URIUP 

002616 

932 

942# 




XMTDAT 

C01501 

698 

723# 




1 

000004 

5560 





tCRLf 

000746 

4 76 

578# 

1275# 



SENDAD 

004504 

4 70 

1117 



(FILL 

001021 

612A 



754# 

955 

tFORMO 

001554 

654 

684 

690 

sldr 

002112 

6250 

904 




sldrm 

002264 

656 

864# 

862# 



Sldri 

002262 

834* 

848 



(NULL 

001020 

61U 

651 


655 

657 

tPRlNI 

000770 

475 

5 70 

597# 

905 

954 

1262 

1266 

1530 



1465 

1467 


779 

816 

SRESTR 

000500 

5070 

563 

707 

srldr 

002210 

482 

845# 

1272 

736 

797 

SSAVR 

000254 

495# 

524 

682 

SUFLO 

001025 

615# 





STPB 

C01026 

617# 

641* 




upflg 

001022 

613# 

659 




SIPS 

001024 

616# 




SSSTAG= 

016146 

2085# 



469# 

472# 


010256 

445# 

460# 

466# 


677 

715 

7520 

756 

829 



1705 

1716 

1723 

1730 

1737 



2009 

2085 




.CONST 

007426 

1232* 

1243* 

1979# 

1576 

1499# 

.MAMF 

005410 

561 

957 

1126 

.PARSR 

004540 

1546# 

1511 




.ROTO 

007160 

1239 

1898# 




.ROTl 

007254 

1250 

1926# 




.type 

001050 

601 

618# 


1795 


.)tOR59 

006262 

1665 

1672# 

1712 


..5*9 

006550 

1157 

1696# 




..8*15 

007152 

1186 

1888# 





1 4 

49 

USER symbols Sf C yu ’ 

190 1929 1977 

708 712 922 927 U18 K2S U99 ’S48 


1602 1605 


685 

1555 

00 00 

691 

1428 

697 

1451 

702 

1456 

oo 

805 

1454 

857 

1458 

474# 

868# 

1744 

480# 

886# 

1751 

485# 

1060 

1758 

488# 

1108 

1765 

518# 

1269 

1787 

582# 

1505 

1796 

640 

1405# 

1805 

647 

1494# 

1938 


( 
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USER SYMBOLS 


SEO 004R 


.2aPAR 

0OS020 

U15« 

1516 

.SISO 

006500 

1675 

1677f 

.51S1 

006270 

1674* 


.!1S9 

006516 

1676 

1678 

.5I«)19 

006506 

1675 

I679f 

.S«9 

006150 

1U5 

1625f 

.8x15 

007UA 

1175 

1878* 


I68^« 
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CROSS Rt TERENCE TABLE -- NACRO NAPES 

(QIWEN 

1« 


EMDCOM 

1 1 


ESCAPE 

1« 


GEIPPI 

If 


GETSuft 

If 


HULl 

If 


NEWTS! 

If 


POP 

If 


PUSH 

If 


REPORT 

If 


SETPRl 

If 


SETUP 

If 


SKIP 

If 


SLASH 

If 


STARS 

If 


SWRSU 

If 


TVPBIN 

If 


ttpdec 

If 


TtPNAN 

If 


TYPNUN 

If 


TVPOCS 

If 


lYPOCl 

If 


TYPTXT 

If 


»ttpe 

522f 


UESCA 

If 


SINEW! 

If 


SISK IP 

If 


.EOUAT 

If 


.HEADE 

If 


.kTIT 

If 


.SETUP 

If 


.SWRhI 

If 


.SACT1 

If 


.SAPTB 

1f 


•SAPTM 

If 


.SAPTt 

If 


•IASI* 

If 


.SCATC 

If 


.SCUTA 

If 


.SDB2D 

If 


.S0B20 

If 


.SDIV 

If 


.SEOP 

If 


.SERRO 



.SERRT 

If 


.snult 

If 


.SPOWE 

If 


.SRANO 

If 


.SROOE 

If 


.SRDOC 

If 


.SREAD 

If 


.SR2A/ 

If 


.SSAVE 

If 


.SSB2D 

If 


.SSB20 

If 


.SS(OP 

If 



I 4 
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.ftSlZE 

.8SUPR 

.STRAP 

.STtPB 

.STtPO 

.STtPE 

.STtPO 

.S40CA 

.1170 


. ABS. 010256 000 


ERRORS DETECTED: 0 

CEMjAD.B1N.CEMjAD.LST/CRF/S0L/NL:T0C-CEMJAD.SMl .CFMjAD.P 1 1 
RUN-TIME: 8 10 .4 SECONDS 
RUN-TIME RATIO: 98/19--S.0 
CORE USED: 52r (65 PAGES) 


